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windows .c 

A Very Simple windows package for windowing 
Written By: Greg McGregor 1990 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 


tfincludc <stdio.h> 

^include <conio.h> 
tfinciude <string.h> 

^include <alloc.h> 

#include <process.h> 

#includc <timc.h> 

tfinclude <\h2ViTK*lloc\g«illoc.h> 

^define SINOLEFRAME 1. 
ffdefine DOUBI .EFRAME 2 

^define CenterUppeiTitle 1 

#dcfinc Black 0 

^define Blue 1 

^define Green 2 
^define Cyan 3 

ffdefine Red 4 

tfdefine Magenta 5 
#define Brown 6 
#define Lightgray 7 
#dcfinc Darkgray 8 
^define I.ighlblue 9 
^define J.ightgreen 10 
tfdcfinc Lightcyan 11 
ffdefine Lightred 12 
ftdefine Lightmagenta 13 
#define Yellow 14 
^define White 15 
#dcfinc Blink 128 

int UL,DU,UR,LR,FD,LL; 

tfdcfine D_UL 201 /* double Line Atributes V 

ttdefine D DU 186 

#define D„UR 187 

tfdefine D_LR 188 

#dcfine DJD 205 

tfdefine D_LL 200 

tfdcfinc S_ UL 218 
^define S_DU 179 
ffdefineS UR 191 
#defineS_LR217 
#define S_FD 196 
^define S_LL 192 


int MAX.WINDOWS = 20; 





//define TRUE 1 
//define FALSE 0 


r 

* window structure 
7 

typcdcf struct { 

int xl,yl 1 x2,y2; 

int foreground,background; 

inf cursor, on,wrap_on,hidden,frame, on; 

int frame; 

int frame fore,frame back; 

} windef; 

ini WINDOWJEXPLODE; 
int win_delay; 

r 

* window type 

7 

typcdcf struct { 

ini window, no; 
void •save_bottom; 

int shaded; /* could the window be shaded 7 
windef window.struct; 

} wintype; 

r 

* window stack 
7 

typedef struct { 

int window_no; 
int open; 

} open windows struct; 

r 

* Window Cal! Stack 
7 

typedef struct {. 

int window_no; 

wintype w; 

} window stack struct; 

r 

* Pick list type 
7 

typedef struct { 

char list[10j[30J; 

} pickjist_type; 


window_stack_struct window_stack[21]; /* MAX_WINDOWS + 17 

open_windowi£„t>lruct window pouI[21j; /* pool of all available windows 

int current_window; 

wintype current, top,windows, crror. wt; 


winder windowK_error = {10,10,70,15,Whil«?,Red,FALSF,FALSE,FALSE ,TRUE,SINGLEFRAME, 

White,Red}; 

void flatWindow (int x^nt y,int xl 4nt yl ,int back^nt textC); 

void init windows (void); 

wintype windowoprn (windef *wd); 

void use (wintype w); 

int windowclosc (wintype w); 

void seltitle (wintype win, char ’title, int mode); 

void close_alLwindowfl (void); 

void explode (int x,int y,int xl ,int y l,int back,int textC); 
int P init windows = FALSE; 

/•--—» -- 

init_windows 

-....... 7 

void init_windows () 

{ 

int i; 

current window = -1; 

for (i=l;i<=MAX_W!NDOWS;i++) { 

window_pool[i].windo\v_no - i; 
window_pool[i].opcn = FAI.SE; 

window„slack[i].window no = -l; /* clear slack V 

} 

WINDOW. EXPLODE - FALSE; 
win_ delay = 44; 

} 

r - r --. 

gel_video__memory : allocate memory (or window 

V 

char *gct_vidco_mcmoiy (int x,int y,int xl, int yl) 

{ 

char ’buff; 
size_t size; 

size = (2 * (xl - x + 1) * (yl - y + 1)); 
buff =(char *) g.malloc (size); 
ir (buff == NULL) { 

windows_error„msg ("get_video_.memory : Can't Allocate memory"); 

} 

return buff; 

} 

/*- 

push_stack : push window on stack 

-------V 

void push_stack(wintype w) 

{ 

int i,ok,n; 

n = w.window no; 
ok = FALSE; 
i" l; 

while ((i<=MAX_WINDOWS) && (!ok)) { 

if (window__slack[i].window_no == -1) { 

ok = TRUE; 

window_stack[iJ.window, no = n; 
window_stack[ij.w - w; 








1 ' 



} 

++ i; 

) 

if (!ok) { 

windows error msg ("put stack: Stack overflow!"); 

} 

) 

r- - - 

pop_stack 

-----V 

int pop_stack() 

{ 

int i,ok,val; 

i = MAX. WINDOWS; 
ok = FALSE; 

val — -1; 

while ( (i>—1) && (lok) ) { 

if (window. stackfij.window, no 1= -1) { 

vai “ window, stackfi].window_no; 
window stackfi].window no = -1; 

f* free video memory 7 
g_free (window_$tack[i].w.save_bottom); 
ok = TRUE; 

} 

-u 

} 

if (!ok) { 

windows error msg ("pop stack: Stack Underflow!"); 

} 

return val; 

} 


r- .- ---- --- 

peek„stack 

- 7 

int peek.stack () 

{ 

int i; 

i = MAX. WINDOWS; 
while ( (i>«l) ) { 

if (window_stack[iJ.window_ no !«* -1) 

return window_stack[i] .window, no; 
-i; 

} 

return -1; 

} 

r .--- 

puIl_out_a_ window; : return top window 

....v 

wintype pull out a window (int id) 

{ 

int i; 

if (id ==-1) return; 

for (i=l;i<=MAX_WINDOWS;i>^){ 

if (window_etack[i].window_no •**= id) 
return window stackfij.w; 

} 










} 

f _______ 

to_top_of_stack(i); put i on top of calling stack 

void to__top_of_stack(int x) 

{ 

int i.j*stack_pos.ok: 
window_slack_5lrucl temp; 
stack^pos = -1; 

for (i*=l;i< t -’MAX w WINDOWS;i+ + ) 

if (window„stack[i].window_no == x){ 
stack pos = i; 
temp = window_stack[i]; 

} 

if (stack_pos ==-!){ 

windows_error_msg ( t *lo_top„of_stack : Stack FRRORI"); 

} 

/* shift stack all down one */ 
j = stack^pos; 
ok = FALSE: 

while (G<=MAX_ WINDOWS-1) && (!ok)) { 

if (window_stack[j+l].window_no " -1){ 
ok = TRUE: 

} else { 

window„stack[j] ■» window_etack[j +1 ]; 

++ ji 

} 

} 

f* move x to top of stack V 
windo\v_stack[j] = temp: 
window_stack[j].window_no = x; 


r------.-— 

set single : set single line frame attrb 

---•/ 

void set_single () 

{ 

UI. - S_UL; 

DU =- S_DUt 
UR « S_UR; 

LR = S_LR; 
hD = S FD; 

LL = S_LL; 

} 

/*------ 

set_double : set double line frame attrb 

---•/ 

void set_double () 

{ 

UL = D UL; 

DU = D_DU; 

UR “ D_UR: 

LR = D_LR; 

FD = D_FD( 

LL = D. LL; 


} 








/*--------- -- - - - 

windowopen : open a window 

wintype windowopen (windef Vd) 

{ 

wintype wt; 

ini i,found,val^i/e; 

char *shade; 

char shade, attr ** 0x07; 


if (!P init windows) { 

init_windows (); 

P_init_windows = TRUE; 

} 

found ** FALSE; 

i- is 

while ( (i<=MAX__WINDOWS) && (Ifound)) { 
if(!window pool[i].open) { 

wt,window no = window pooI[i].window_no; 
found = TRUE; 

window_pool[i].opcn = TRUE; 

} 

+ -m; 

} 

if ((found) { 

printf ("\n No More available windows.."); 
wt.window_no = -1; 
return wt; 

} 

wl.window_slruet = *wd; 

wt.shaded = FALSE; 

if ( (wd->x2 < 80) && (wd->y2 < 24)){ 

wt.save_bottom = get_.video_memory (wd->xl,wd->yl,wd->x2+l,wd->y2+l); 
if ((gettext (wd->xl,wd->yl,wd->x2+l,wd->y2+l,wt.save bottom)) { 
windows,, error, msg ("Can’t Open Window!"); 
wt.window_no = -1; 
return wt: 

} 

wt .shaded = TRUE; 

} else { 

wt.save_ bottom = get_video. memory (wd-^x 1 ,wd >y 1 ,wd->x2 +1 ,wd->y2+1); 
if ((gettext (wd->xl,wd->yl,wd->x2,wd->y2,wt.save bottom)) { 
windows_error_msg ("Can’t Open Windowl"); 
wt.window_no -- -1; 
return wt; 

} 

wt.shaded *= FALSE; 

} 


r shade if there is room to shade 7 

if (wt.shaded){ 

size = (2 * (wd->x2 - wd->xl + 1) * (wd->y2 - wd->yl + 1)); 
shade = gct_vidco_mcmory (wd->xl,wd->yl,wd->x2,wd->y2); 

xf (tgeUexl (wd->xl + l l wd-^>yl + l,wd->x2+l 1 wd->y2'*-l,shade) ) { 
windows. error_msg ("windowopen: gettext : FAILEDI"); 
wt .window, no = -1; 
return wt; 





} 

for (i=l;i<size;i = i * 2) { 

shadc[ij - shade attr; 

} 

if (! puttext (wd->xl + l, 

wd->y 1 +1, /* shading here 7 

\vd->x2+l f 

wd->y2+l* 

shade) ) { 

window8_error_msg ("windowopen: shading error"); 
wt.window, no -1; 
return wt; 

} 

g_free (shade); 

} r end shading 7 


if (wd->frame == SINGLEFRAME) 

Bet_single(); 

if (wd->framcDOUDLEFRAME) 
sel_doubIe(); 

flatWindow (wd->xl ,wd->y 1 ,wd->x2 t wd->y 2 ,wd-> background ,wd->foreground); 
push, stack (wt); 
return wt; 


use; 


7 


void use (wintype w) 

{ 


int val; 


if (w.window_no = pcck_stack()) { 

w = pull_oul_,a__window (w.wmJow.no); 

window (w,window_struct.xl +1 ,w.window_struct.yl +1, 
w,window..struct.x2-1 ,w .window. struct.y2-1); 
textcolor (w. win do w_strucl.foreground); 
textbackground (w.window struct.background); 
return; /• top window already in use But still reset window coordsV 

) 

if (! window_pool[w.window_no].opcn) { 

windows_error msg ("use : Window Not OPEN!"); 

} 


w = puILout_a_ window (w.window_no); 


window (w.window_stnict.x 1 +1 t w.window_stniet.y 1 +1, 
WAvindow_struct.x2-lAv.window_struct.y2-l); 
textcolor (w.window_struct.forcground); 

textbackground (w.window_slrucl.background); 
to top_of_stack (w.window_no); 

) 

r--- 

restore_coords : reset window dimensions 

-•/ 

void rcstorc_coords (wintype w) 

{ 


} 


window (w.window_etruct.x 1 + 1 1 w.window_stmct.y 1 +1, 
w.window_struct.x2-1,w .window. struct.y2-1); 







/*-.—---- 

windowclosc ; 

int windowclosc (wintype w) 

{ 

int i; 

if (w.window_no != pcck_stack()) { 

return FALSE; 

} 

if (w.shadcd) { /* close shade, too, if applicable 7 
if (1 puttext (w,window_struct.xl, 
w.window struct.yl, 
w.window_stnict.x2+1, 
w.window, struct.y2+1, 
w.savc_bottom) ) { 

windows, error_msg ("windowclosc: error exiting window”); 

} 

} else { 

if (I puttext (w.window. .struct.xl, 
w.window struct.yl, 
w.window_struct.x2, 
w. wi n d o w_st ru ct .y 2, 
w.savc_bottom)) { 

windows_error_msg ("windowclosc: error exiling window"); 

} 

I 


} 


for (i=l;i<=MAX WINDOWS:i++ ) { 

if (window_pool[i].window_no — w.window, no) { 
windo\v_pool[i].open = FALSE; 

} 


) 

i = pop, stackQ; /* pop off last window off of call stack 7 
f* use window under one just erased 7 


if (peek stack() == -1) { /* no open windows..reset 7 
return FALSE; 

} 


reslore_coords (pulI_out_ a. window (peel^s lackQ) ); 

text color (window_stack[peek_stack()].w .window, struct .foreground); 

textbackground (window, stackfpcck. stackQ] .w.window, struct.background); 

return TRUE; 


r -- 

sellille: scttitlc switches to this window 

-------7 

void scttitlc (wintype win, char *titlc, int mode) 

{ 

int width,len.pos; 

window (win.window_struct.xl, 
win.window_struct.yl, 
win.window_struct.x2, 

win,window_slrucl .y2); 

width «=• win.window_struct.x2 - win.window„struct.xl; 

len - strlcn (title); 

pos = (width / 2) - (len / 2); 







goloxy (pos,l); 

cprintf ("%s*\title); 

window (win.window. struct.xl +1, 

win.window^ struct.yl +1, 
win.window struct.x2 -1, 
win.window_stnict.y2 -1); 

} 

/*-------- 

drawjincs 

....... */ 

void draw lines (x,y,xl,yl,back4cxtC) 
int x,y,xl,yl,textC; 

{ 

int i,j; 

lextcolor (IcxtC); 
textbackground (back); 
window (x,y,xl,yl); 
clrscr (); 

cprintf (”%c M 1 UL); 
for (i=x+l;i<xl;++i) 

cprintf ( ,f %c".FD); 
cprintf (’^c'^UR); 

for(j-y+l;j<yl;++j){ 

gotoxy (lj+l-y); 
cprintf ("%c”,DU); 
gotoxy (xl+l-xj-i 1-y); 
cprintf C^cW’JDU); 

} 

gotoxy (l,yl-y); 

cprintf ("%c",LL)5 
for (i“x -► l;i<xl; + +i) 

cprintf (*’%c'\FD); 
window (xl,yi,xl«yl); 
cprintf (”%c’\LR); 

window (x+l.y+l.xl-l.yl-1); 

} 

/*..... 

explode a window 

- •/ 

void explode (x^xl^back^extC) 
int x^xl^UbackdextC; 

( 

int i,xx,yy,xxl ,yy 1; 
delay (0); /* calibrate clock*/ 

xx = (x+xl)/2-3; 
yy = (y+yl)/2-3; 
xxl = xx + 6; 
yyl =yy + 6; 

for(i=l;i<=3;++i) { 

(iniw_lines (xx,yy,xx 1 ,yy 1 ,back,lex lO); 
xx = (xx+x)/2; 
yy = (yy+y)/2; 
xxl =(xxl+xl)/2; 







yyl =(yyl-*-yl)/2i 
delay (win_delay); 

} 

} 

flatWindow 

..... V 

void flatWindow (x^jxljyl^backdexlC) 
int x»y,xl,yl,back,textC; 

{ 

int i,j; 

if (WINDOW_EXPLODE) explode (x,y,xl,y 1 ,back,tcxtC); 
textcolor (textC); 
tcxtbackground (back); 
window (x,y,xl ,yl); 
clrscr (); 

printf C%c*\UL); 
for (i=x+l;i<xl;++i) 

printf ( n %c’\FD); 
printf ("%c",UR); 

for Q=y+l\i<yU++i){ 

gotoxy (Ij + l-y); 
printf ("%c’\DU); 
gotoxy (xl + l-xj+l-y); 
printf (”%c\n'\DU); 

} 

gotoxy (l.yl + l-y); 

printf ( m %c”,LI.)5 
for (i—x + l;i<xl; ++i) 

printf (”%c , \FD); 
window (x^yM^yl); 
printf (”%c’\LR); 

window (x+l^+l^l-l^yl-l); 
clrscr (); 

} 

/*--— . -—.—.. 

close_aIl_windows : close all windows free up memory 

-•/ 

void close_alLwindows () 

{ 

int id; 

winlype win; 

id = pcck_stack (); 
while (id 1=-1){ 

win = pull out a window (id); 
windowclose (win); 
id = peek_stack (); 

} 

) 

r- ----- 

ruff_area : clrscr with a ruff area image 








. .....—7 

ruff_area (int x,int y,int xl^int yl,int t_color,int b_coIor) 

{ 

int i,j; 

char *sto; r memory storage for shade 7 

sto = get_video_mcmory (x,y,xl,yl); 
i = (2 * (xl *x + 1) * (yl-y + 1)); /* get size of area 7 

gcl_video_memory 7 

for(j*=0;j<i;j 2) { 

stofjj = 176; /* niff char 7 

stofj+1] = (char)(t_coior | b_ color); t fore, back color 7 

} 

if (Iputtext (x^xltyltSto)) { 

windows_error_msg ("ruff_area: puttext error!”); 

} 

free (slo); /* Iree up memory 7 

} 

r- --— 

windows error msg 
\vindows_error msg (charts) 

l 

windows__erTor_wt = windowopen (&windows_eiTor); 

settitle (windows_error_wt, tt Windowing Error! "jCenterUpperTitle); 

clrscr (); 

cprinlf ( n % s’\s); 

getch (): 

exit (0); 


/* same formula as 


r 

// 

// display_pickJist 
// 

7 

void disp!ay_pick_!ist (wintype wt,int itcm,pickjist_type *list Jnt items) { 
int i; 

use (wl); 
clrscr (); 

for (i=0;i<itcm5;i+ + ) { 

if ((i+1) == item) { 

gotoxy (l,i+l); 
textbackground (Black); 
textcolor (White); 
cprintf ("%c%s M ^xlOJist->list[i]); 

} else ( 

gotoxy (l,i+l); 
textbackground (Cyan); 
textcolor (White); 
cprintf (" %s'\list->list[i]); 

} 

} 

} 


/* 

// 




// get_kb_char - with a timeout of 1 minute 

// return OF in upper byte if extended key 

7 

int get_kb_char () { 
char ch; 
int x; 

time_J start,current; 

start = current = clock (); 

while ( (tkbhil ()) && ( (currenl-slarl)/CLK^TCK < 60) ) 
current = clock ( ); 
if ( Ikbhit () ) return ( FALSE ); 
ch = getch (); 
if (ch == 0x00) { 

x = OxOFQO; 
ch = getch 0; 

} else x = 0x0000; 
return ( x | ch); 

} 


r 

n 

// pick_Iist 
// 

7 

int pick_list (pick_Iist_typc *list,int items,char *title) { 

windef pick^win ={ 1,1,80,24,White,Cyan *FAI .SE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Cyan}; 

wintype pick_wt; 
int cols,i j,key; 

_sctcursortypc (_NOCURSOR); 

cols = 0; 

1 L 

for (i=0;i<items;i++) { 

j = strlcn (list“>list[ij); 
if (j > cols) cols = j; 

} 

cols •* = 4; 

if (cols < strlen (title)) cols = strlen (title) + 2;/* minimun width 7 

pick_win.xl = 40 - (cols/2); /* center picklist on screen 7 

pick^win.x^ = 40 + (cols/2); 

pick^win.yl = 12 - ((items*2)/2)t 

pick_win.y2 = 12 + ((itcms+2)/2); 

pick^wt = windowopen (&pick_win); 

settitle (pick wt,title,CcnterUppeiTitle); 

key = 0; 

i = 1; 

while ((key != OxOOOD) && (key != OxOOlB)){ /• enter and esc 7 
if ( key == 0x0F50 ) f* down arrow 7 

if ( i items ) { i * 1; } else +-»-i; 
if ( key *»® OxOF48 ) /* up arrow 7 

if ( i =- 1 ) { i = items;} else —i; 
display pick list (pick wt,i,list,items); 
key = get_.kb„char (); 

if (key — 0x0000 ) return (OxOOlB); I* time out return ESC 7 

} . 

windowclose (pick^_wl); 

_setcursortype (_NORMALCURSOR); 
if (key == OxOOOD) return ( i ); 
return (OxOOlB); 



} 


r 

u 

//add. to_ pick Jist 

II 

V 

void add_lo_pick_Iist (pick_lisl_lype *Iis(,ohar *ilem,inl position) { 
strcpy (list->Iist[position-l] t item); 
return \ 




> 



r - 

MODULE: agrio.c 

Preforms the sequential agreement data functions. 

Written By : Greg McGregor 

REVISION: What was revised? 

- GMM 07-30-1991 NOTHING 


V 


^include <stdio.h> 
#include <ctype.h> 
#includc <bench.h> 
#includc <proc.io> 

^include <sys\slal.h> 
^include <windows.h> 
^include <gkcys.h> 
^include <misc.h> 


#inc!ude <agreev3.h> /• stnid formats 7 
tfinclude <agreenum.h> 

#includc <control.h> 

tfinclude <Iphone.h> 

^include <raperson.h> 

^include <agrio.h> 

^include <gbase.h;> 

#include <time,h> 

^include <extnvar.h> 


/* Open Ihe Primary Data File, its Indices 
ft »*og o coo»< i O Qo m»»»ccc«» c c.pc-o«i»»ow 

opcn_filc3() 

{ 

wintype win; 


7 

7 

7 


r 

I* 

r 




7 


make sure files exist 




7 

7 


ioatat - 3tat("AOREENUM”,<3cbuf); 
if (iostat < 0) { 

win = note ("Error, open fi!es(),"); 
gotoxy (1,3); 

cprintf ("NO AGREENUM file! IOSTAT = %d, Call Central Office",iostat); 
gotoxy (15,4); 

eprinlf ("Press ESC lo Exil!* 1 ); 
getch(); 

windowclosc (win); 
cxit(l); 

j 

iostat = stat(”CONTROL" Abuf); 
if (iostat < 0) 

{ 

win = note ("Error, open_rilet>(), ”)j 

gotoxy (1,3); 


cprintf ("NO Control file! IOSTAT = %d, Call Central Office iostat) 
gotoxy (15,4); 








cprinlf ("Press ESC lo Exit!"); 
gctch()i 

windowclosc (win); 

exit(l); 

} 

iostat = stat("PHONE",&buf); 
if (iostat < 0) 

{ 

win = note ("Error, open_files(), "); 

gotoxy (l,3)i 

cprintf ("NO Phone file! IOSTAT = %d, Call Central Office”,iostat); 

gotoxy (13,4); 

cprintf ("Press ESC to Exit!"); 
gctch(); 

windowclose (win); 
cxit(l); 

) 

iostat - stat("RAPERSON'\&buf) t 
if (iostat < 0) 

< 

win = note ("Error, open files(), "); 

gotoxy (1,3); 

cprintf ("NO RA.P. file! IOSTAT = %d, Call Central Office",iostat); 

gotoxy (15,4); 

cprinlf ("Press ESC lo Exil!”); 
getch()t 

windowclose (win); 

exit(l); 

) 


open files 


7 


7 

7 


fd_agreemnl = open_fi!e9(FILEl, FSIZE1, UPDATE_MODE, keypos_agreemnt, FLDS_agrcemnt, 
agreemnt fid); 

fd_control = open_file9(FILE2, FSIZE2, READ_MODE, keypos_control, FLDS_control, controLfld); 

fd_phone = open_fiIe9(FILE3, FSIZE3, UPDATE_MODE, keypos_phone, FLDS_phone, phone_fld); 

fd_.rapcrson ** opcn_filc9(FILE4, FSIZE4, READ_MODE, kcypoa.rapcnson, FLDS_rapcrson, rapcraon_fld); 

fd agreenum = open file9 (FILE10,FSIZE10, UPDATE MODE, keypos agreenum, FLDS agreenum, 
agreenum. fid); 


ioslal = resel_file9 (fd_conlroI,&conlrolrec); /* load control file 7 
if (iostat < 0) { 

crrrtn ("ERROR; (opcn.filca) Can’t load control file!"); 
exit (0); 

} 

iostat = reset_file9 (fd_agreenum,&agreenvimrec); 
if (iostat < 0) { 

crrrtn ("ERROR: (opcn_filcs) Can’t load last agreement number!"); 

exit (0); 

} 

new. agreeno = agrecnumrcc.Iast„agrcemcnt_ number +1; 
sprintf(new_agreeno_ar%08d", new. agreeno); 



t»lrepy(ugreenu, ncw_^rccru)..i»); 


/* 

strncat(agrccno, controlrcx.origagcncy,4); 
if (conlrolrec.origagency[3] != ’NO*) 
strCHcat (agreenoAO*); 

7 

/* moveX (agrecmntrec.agreeno, agreeno, 13); 7 
strcpy (agrccmntrcc.agrccno, agrccno); 

moveX (agreemntrec.origagency, controlrec.tau_id, 4); 


retum(lOGOOD); 

} 


/• Close the Data Files V 


close_a_filc (fd) 
int fd; 

{ 

close_filc9(fd); 

} 

close_files() 

{ 

ciose_file9(fd_agreemnt); 
close file9(fd control); 
closc_file9(fd„phone); 
close_file9(fd_ raperson); 
closc_filc9(fd_agrccnum); 

) 


/♦ *••»* . 

r add/update agreement record 7 

add_upd_agrccmnt(int p) 

{. 

wintype win; 
char ch; 
int iostat; 

static int agreement added = 1; 
struct agreemnt_def temp_agreemnt; 

nuILficld (&tcmp_agrccmnt*sizcof (tcmp_agrccmnt)); 

moveX (temp_agreemnl.agreeno,^greemntrec^igreeno 1 12); 
selectinx9 (fd_agreemnt,l); 

iostat - cxactkey9 (fd_ agrccmnt,<Sctcmp_ agreemnt); 
if (iostat <0) { 

agreement added = 1; r add it 7 
} else agreement_added = 0; 

if (agrccmcnt_addcd == 1) { 

derive_pluggcd_fieldK0; 

iostat = addrec9(fd_agreemnt, &agreemntrec); 
if (iostat < 0) { 

win = note (’’Error, add„upd_agreemnt, **); 







gotoxy (1,3); 

cprintf (”fd_agreemnt ’add* IOSTAT = %d, Call Central Office”,iostat); 
gotoxy (15,4); 

cprintf (’’Press ESC to Exit!”); 
getchQ; 

windowclose (win); 
close_files 0; 
return; 

} 

agreement_added *= 0; 

f* update control record with latest agreement number V 

agrecnumrec.last agreement number = new agreeno; 
iostat = updrec9(fd_agreenum, &agreenumrec); 
if (iostat < 0) { 

win = note (”ERROR: (add_upd_agrccmnt)"); 
goloxy (1,3); 

cprintf (”fd._agreenum ’upd* IOSTAT ** %d, Cali Central Office”,iostat); 
gotoxy (15,4); 

cprintf (’’Press ESC to Exit!”); 
gctchO; 

windowclose (win); 
close_files 0; 
return; 

} 

else ( 

derive^ plugged_fields(); 
agreement_added = 1; /* reset for next rental 7 
iostat = updrec9(fd agreemnt, &agreemntrec); 
if (iostat < 0) { 

win = note ("Error, add_upd_agreemnt, ”); 
gotoxy (1.3); 

cprintf ("fd_iigreeinnl f upd’ IOSTAT = %d, Call Central Office”,iostat); 
gotoxy (15,4); 

cprintf ("Press ESC to Exit!”); 

getchQ; 

close files (); 

return; 

} 

} 

moveX (phonerec.curphoneno,agreemntrec.curphoneno,12); 
if (p ==» 1) strepy (phoncrcc.status, ? T"); 

if (p “= 2) strepy (phonerec.stalus,”0 M ); /* closing agreement 7 

if (p == 3) strepy (phonerec.status,”2”); /* Lost phone 7 

if (p — 4) strepy (phonerec.status,”3"); /*Can*t communicate to phone 7 

if (p 5) strepy (phonerec.status ”4”); /• Reserved 7 

iostat = updrcc9(fd_phonc, Aphoncrcc); 

if (iostat < 0) { 

win ■» note ("Error, add_upd_agreemnt, "); 
gotoxy (1,3); 

cprintf (*’fd„phone 'upd* IOSTAT = %d, Call Central Office”,iostat); 
gotoxy (15,4); 

cprintf ("Press ESC to Exit!"); 

getch(); 

closcJilcs (): 

return ; 


) 



r 

r 

r 


derive plugged fields 


7 

7 

7 


derive plugged fields() 

{ 

if (EST1MATED_CALLS) 

updatc_tau_status (3/6*); 
rcop^agreemnlrec.phoneid^honerec.phuneid,^); 

/* moveX (agreemntrec.curphoneno^hone^umber,^); 7 
agrccmntrcc.phochgday = controlrcc.phone, daily, chg; 
agreemntrec.phochgmin = controlrecxharge_per_minute; 



switch (agreemntrccxreditno[0]){ 

case '3*: if (agreemntrecxreditno[l] == 7') 

strepy (agrccmntrccxrcdittypc,"AE M ); 

if (agrccmnlrec.credilno[l] == *3 f ) 

strepy (agreemntrec.credittype, t, DC t, )t /* diners club 


break; 

case *4’: strepy (agreemntrcc.crcdittype/’VT); 

break; 

case '5 1 : strepy (agreemntrecxredittype^MC"); 

break; 


case ’6' : strepy (agreemnlrec.crediUype, M DI"); /* discover 7 

break; 

case '9*; strepy (agrccmntrccxrcdittypc,"CB"); 

break; 


} 

if (stmemp (agreemntrec.approvcdrCASHM) = 0) 
strepy (agreemntrecxredittype/'CA"); 
if (stmemp (agrccmntrcc.approvcd "CHECK".5) == 0) 

strepy (i*greemntrec.crediUype, M CK M ); 

if (stmemp (agreemntrec.approvcd/'NONF/\4) 0) 
strepy (agrccmntrccxrcdittypc,"NO”); 


swap_YM (agreemntrec.expiredale); 


swap_YM (a_date) 
char a date[]; 

{ 

char _tmp[6]; 

_tmp[Q] = a_datc[2]; 

_tmp[l] = a_dule[3]; 
_tmp[2] «* a_date[0]; 
_tmp|3] c a_datc[lj; 
r a_date = _tmp; 7 
} 



0 MODULE: REALTIME.C 


* TF.LEMAC CELLULAR CORP. 


* Written By: Greg McGregor 1990 

* PURPOSE: This module preforms the real lime billing event between 
0 the cellular phone and the hotel computer at Final Closing Time. 


REVISED: What was revised? 

GMM 7-30-1991 - The ability to estimate a call length is the 

battery on the phone was pulled so that no 

end of call data was stored. 

- Now gets cumulative air time reading every 
rented return. 

GMM 9-13-1991 The rea!004 data was moved into the control file. 

Therefore, all references to real004 have changed to 
control. 


ffinclude < process.h> 
ffinclude <stdio.h> 
ffinclude <conio.h> 
ffinclude <stdlib.h> 
ffinclude <math.h> 
ffinclude <timc.h> 

#include <string.h> 
ffinclude <window.h> 
ffinclude <dos.h> 
ffinclude <bios.h> 
ffinclude <ctypc.h> 
ffinclude <bench.h> 
ffinclude <proc.io> 
ffinclude <io.h> 

#include <crtio.h> 
ffinclude <\sys\stat.h> 

ffinclude <gkeys.h> 
ffinclude <windows.h> 
ffinclude <agrio.h> 

ffinclude <agreev3.h> F all types, making them extems 7 
ffinclude <control.h> 
ffinclude <phone.h> 
ffinclude <rapcrson.h> 

ffinclude <gbase.h> 
ffinclude <extnvar.h> 
ffinclude <cxtscms.h> 

ffinclude <rtb.h> F realtime billing definitions 7 

ffinclude <rtbfunc.h> F common rtb functions 7 

ffinclude <decphone.h> F decode function to decode phone ff 7 

ffinclude <taustat.h> 

ffinclude <Iostdam.h> 

ffinclude ^cti_com.h> 

ffinclude <rcal001.hl> F data records 7 
ffinclude <rea!002.hl> 




//include <rea!003.hl> 

//include <real005.hi> 

r 

• Function Dcfs 
7 

float rLcalc. billing(gbaserec rec); 

bill_long_distancc (rccord.typc *call,float dist): 

float calc„disl (record_type “call); 

int set_inter (float d); 

int set„intra (float d); 

float timc_to_seconds (char a_.timef]); 

char calc rtb LRC (char %int lcn); 

//define BASE.. POINTER 0x0F90 /* base pointer for novatel 7 

//define MAX_CALLS 100 

//define MAX_STRING_LENGTH 11 
//define CHART„MILE 6.25 

long int DAY„RATE *= 28800; /* day rate starts at 8am, in sees 7 

long int EVENING. RATE = 61200: /* evening starts at 5pm 7 

long int NIGHT RATE = 82800; r night starts at 11 om 7 

int NCLSIONAL = FALSE; 

int MEMORY_FULL = FALSE; 

int NO_BILL_UNDER; 

char LRC_PHONE; 

//define TIMED. OUT_X 1000 i* about 1 second time out 7 
f* charLmiie is what 1 unit converts to in miles 7 


//define COM1 0 
//define COM2 1 
//define COM3 2 
//define COM4 3 

//define CTLBAUD 9600L 
//define CTLPORT COM1 


/* - 

OLOBALS 

.7 

r gbaserec call rec;7 /* defined in extnvar.h 7 
/* contains agreeno and all calls asociated with 
that agreeno. Times, dates, lengths etc.. 7 

record_lype a_call; /* a call record that attaches to call_rec 7 

cti_obj cco; /* ending cti object 7 

char eco„bufff 1024]; /* setup an eco buffer of IK bytes 7 

r all information is stored in the above two structures 7 

/* both are linked lists of records and are outputed that way to disk 7 

/* both defined in gbasex 7 

char origin[5]; /* area code or origin of a call 7 

int METER READING = 0; f* Cumulative air time meter in phone 7 

int NUM„ES11MATE_CALLS= 0; /* Number of estimated calls - lengths of 7 



int no_byleii; 


char far raw_data[8192j; P ALLOWS FOR 8K OF DATA The phone can only 7 
P store under 3K... 8K if for some reason a new phone can store more 7 

r 

char far raw..data[8192] = {0xF0,0x41,0x31,0x02,0x05,0x83,0x82,0x4A,0x10,OxEO, 

0x41,0x31,0x09,0x07,0xF2,0x05,0x08,0x25,0x01,0x15, 
Oxl3.0x68.0x94.0x56.0x70.0xE2.0x05.0x08.0x29,0x02, 
0xF2,0x71,0x06,0x51,0x45,0xE2,0x71,0x06,0x59,0x01,0xF0}; 


r 

* START PROGRAM CODE 

7 

r 

gl>;*serec end__rlb (); 

main () 

{ 

gbaserec reel; 

reel = end_rtb()i 

} 

-/ 

r --- 

parsc„data () 

---7 

int parse data () 

{ 

char data; 
int pos = 0; 

int roamer,. days = 0; P # of 24hr periods phone was in roam 7 

int calls =1; 

int first, roam = TRUE; 

reeord_type Trail; 

char roamer date[8]; P Used to calculate the roamer periods 7 

P look for first call, in-use flag set 7 

while (movcjil (raw_data[pos]) != OxOF) ++pos; 

while (calls<=number_of_ealIs) { 

if ( (call « new_rec ()) «-•*= NULL ) { 

printf ("\n MALLOC: no memory!"); 

printf (’An - Call; Telemac (300) 235-2356”); 

exit (0); 

} 

if (!convert_caIl Jnfo (call, &pos)) { 
rtb_crror (-5); 
return FALSE; 

} 

movcX (call->tau_. id,agrccmntrcc.origagcncy,4); 
if (call->flag <& 0x01) [P roam light lit add in roaming charges 7 
if (first roam) { 

first roam = FALSE; 

stmepy (roamer, date,cail->date,6); 

++roamcr_days; 

) else 

if (stmemp (roamer„date,caIl->date,6) 0) { 
stmepy (roamer, datc,call->datc,6); 

+ »Toamer_days; 




} 


} /* else still in same day roaming V 

} 

assoc,rcc (&call„rcc 1 call); 

++calls; 

} 

if (roamer_days != 0) { 

if ( (call " nc\v_rcc 0) “ NULL ) f 
clrscr (); 

prinlf (**\n MALLOC: no memory!**); 

printf (**\n - Calli Telemac (800) 235-2356’*); 

exit (0); 

} 

strepy (call-> number," ROAMING CHARGES"); 
strepy (call->start_time "N/A"); 
strepy (call->end_time,*’N/A"); 
stmepy (call->datc,agrccmntrcc.actrtndatc,6); 

call->length = rownci, days; 

call->actual_secs « 0.0; 

call->lcngth_ sees = 0.0; 

caJl->flag = 0x01; /* turn on bit 1 for roamer V 

call->next = NULL: 

add. in. roaming (calbroamer.days); 

assoc, rec (&call_rec,call); 

++calls: 

} 

return 1TUJE; 


/*-- - - - ----- 

pre_parse_num_calls : parse data to determine number of calls 

ini pre_parse_num_calls (ini bytes) { 

int pos = 0; 

int calls = 0; 

char ch; 

int count = 0; 

while (pos < bytes) { 

ch = ra\v_data[posl; 
ch - move Jil(ch); 
if (ch =— OxOF) ++calls; 

+ + pos; 

-n- count; 
if (count >- 9) { 
clrscr (); 

cprintf ("-* Pre-Parsing Data - %d'\pos); 
count = 0; 

} 

) 

clrscr (); 

cprintf ("-* Pre-Parsing Data - %d",pos); 
if (calls != 0) 

—calls; f* last data byte has F in upper nibble 7 
return calls; 

} 


r ----- - 

add. in. roaming: 

.-.V 






ini add_in_roaming (record_lype Trail,ini days) { 
int keynum; 

call->basc„cost — days * controlrcc.roam_chg_pcr_day; 
call->ioial_cost = call->base_cost; 
ca!l->long dist cost = 0.0; 
return TRUE; 


convert_call_info: put call information into a record., type 

instead of breaking up into functions I prefer all of this garbage 
in one function.. The data brought in is also variable length and 
type so it gets harry below. 

_ : --- ; -- •/ 

int converLcalLinfo (record_type *0311, int *pos) 

{ 

char dala_slream[50]; P lo store nibbles in low nibble of each byte 7 
char temp[20]; 
int i,j; 

int roaming = FALSE; 
time t timer: 
struct tm *tb!ock; 

int EOCLFOUND = FALSE; P End of call bool An OxE found in high nibble 7 

i = 0; P iml some fields V 
rtb_null_field (call->number,40); 

if (move_hl (raw_data[*pos]) 1= OxOF) return FALSE; P OxOF start of call 7 
P eet call start data and out into stream in nibbles 7 

w * 


do { P get all of call info in a nibble stream 7 

data_strcam[i] = movc.hl (raw_data[*pos]); P move high nibble in7 
if (dala_slream[i] —— OxOE) 

EOCLFOUND =~* TRUE; P found start of end call data 7 

-r-i-i; 

data_stream|i] = raw. data[*pos] & OxOF; P Move lower nibble in 7 
++*pos; 

++i; 

} while (move_hl (raw_data [ # pos]) != OxOF); 

P just in case call doesn’t end in OxOE 7 
data_slream[i] = OxOF; 


P first nibble is Hex F so skip start at 1 7 
temp[l] = lo_digit (data_streamf 1]); P second digit of month 7 
if (data stream[2] & 0x04) { 
temp[0] = T; 

} else temp[0] = *0’; P moved in first digit of month based on fl3g7 

P in 3rd nibble 7 


P check flags 7 

cail-xflag — 0i P null all flags in flag variable 7 
if (data, stream[2] & 0x08) ( P bit 4 is set if roam light is on 7 
call->flag = call->flag | 0x01; P turn on bit 0 7 
roaming = TRUE; 

} 


P move month into call rcc 7 

call->dale[2] = lemp[0]; P dale is slored as YYMMDD 7 

call->date[3] = temp[lj; P positions 012345 7 

P now get year 7 
timer = time (NULL); 





I block. = (struct tm ")m alloc (sixeof (struct tm) ); 
tblock = localtime (&timer); 
atrcpy (tcmp,itoa (Iblock-Mm.ycardcmpjlO)); 
free (tblock); 
call->date[0] = temp[0]; 

call->date[l] = temp[lj; /* now year is moved in, year comes from 7 

/* the computers clock 7 

/* now get day of call 7 

lemp[0] = dala_slream[2] & 0x03; f* keep lower 2 bits 7 
call->date[4] = to_digit (temp[0]); 
calI>datc(5J *= to.digit (data_strcam|3J); 
call->date[6] = AO’; /* null end of field 7 

r date of call is now stored in call struct 7 


f* now get time of call 7 
if (dala_slream[4] & BIT2){ /* am or pm 7 
call->start_time[8] *= ’PA 
} else caH->start_timc[8j “ ’A’; 

r if over 10 and less=12 move a 1 into prev char for 10's place 7 
if ( (data stream[5] >= OxOA) &<St (data stream[5] <= OxOC)){ 
call->start. timelO] = V; 
data_stream[5] -= OxOA; /• subtract 10 7 
call->start„timc[l] = to_digit (data_strcam[5]); 

) else ( 

calb>start_time[0] - f 0*; 

calk>start_timellj = to_ digit (data 5tream(5j); 

} 

call->start time[2] = A’; 

call->start. time[3 = 1o_digit (data. stream[6] & 0x07); /* keep 1st 3 bits 7 

call->start_time[4] = to_digit (data_stream[7]); 

call->start„timc[6] = to.digit (data_strcam[8] & 0x07); 

call->slarl„lime[7] = to„digil (dala_stream[9j); 

call->start_time[5] ®=■ V; 

call~>starL timc(9J « AO’; 

r determine if call was made or call was answered 7 
strepv (caII->number/ANCOMlNG"); 
if (data_stream[10] != OxOE) { /• call was made 7 
rtb_null field (call->number,17); 
j “ 0: 

do { 

if (data_stream[j +10] !*= 0) /* skip last 0 if exists 7 

call->numbcrljj =* to._digit (data_.3trcamlj+10j); 

+ + j; 

} while ((data stream[j+10] != OxOE) && 

(data_stream[j +10] != OxOF)); /• get number called 7 . 

/* j+10 because next char may be 0E following the number 7 
j = i + 10; /* jump to OxOE 7 

} else j = 10; 

if ( (data_stream[j] 1= OxOE) && 

(data_strcam[j] != OxOF) ) return FALSE; /* bad data transmit 7 

if (roaming) 

streat (call->number ,"*"); 

if (IEOC_FOUND) { /* means OxOF not a OxOE above in bad data 7 

c«dl->flxg = cidl->fliig | 0x04; 

/* turn on estimate flag 7 
+ + N U M_ ESTI M ATE_C ALLS ; /* global 7 
update_Jau_status (3, f 6*); 


ESTIMATED_CALLS = TRUE? 
return TRUE; 

} 

r get end time of call 7 
if (data_stream[j+4] & BIT2){ /* am or pm 7 
call->end_time[8] = ’P'; 

) else cail->cnd_timc[8] = ’A'; 

r if over 10 and lcss=12 move a 1 into prev char for 10*s place 7 
if ( (data_stream[j+5] >= OxOA) && (data_stream[j+5] <= OxOC)){ 
call->cnd_timc[0] <= *1’; 
data_stream[j+5] -= OxOA; /* subtract 10 7 
} else call->end timc[0] = 'O'; 

cali->end_timc[l] = to_digit (data_stream[j+5]); /*set hour 7 
call->endjime[2] = V; 

call->cnd Jimc[3] = to.digit (data_strcam[j+6] & 0x07); /• keep 1st 3 bits 7 

call->cnd_lime[4] — lo_digil (dal*_streiun[j-»-7]); 

call->end_time[6] *• to_digit (data_stream[j+8] & 0x07); 

call->cnd_timc[7] = to, digit (data_3trcam[j-*-9]); 

call->end_timef5l = V; 

call->end timc[9] = A0'; 

f* get length of call 7 

calc_lcngth„call (call); 

} 

/*--- - .. 

calc_length_call: calc the length of call 

- 7 

calc, length.call (record,type *call) 

{ 

float start.cnd.total; 

char lemp[ 10]; 
int trunc_value; 

rtb_null_field (temp,10); 
temp[0] = call->start time[0]; 
tempi 1] = call->start_time[lj; 
temp[2] = A0*; 

if (slmcmp (temp,"12",2) 0) { 

start = (float)atoi (temp) * 3600; /* convert hours to seconds V 
} else start = 0; /* 12:00:00 is our starting position 7 

templO] = call->start time[3]; 
tempi 1] = call->start_time[4]; 

start “ start + (float)atoi (temp) * 60; /* convert mins to secs 7 
tcmp[0] - call->start_timc[6]; 
lempll] = eall->slarl_.lime[7]; 
start start +■ (float)atoi (temp); 

rtb_null„.field (temp, 10); 
temp[0] = call->end time[0]; 
temp[l] = call->end_time[l]; 
temp[2] - A0’; 

if (ttlmcinp (temp,” 12”,2) t= 0) ( 

end = (float)atoi (temp) * 3600; /* convert hours to seconds 7 
} else end = 0; /* 12:00:00 is our starting position 7 




lemp[0] — eall->end_time[3]; 
tcmp[l] =- call->end_time[4]; 

end “ end + (float )atoi (temp) 0 60; f* convert mins to secs 7 
temp[0] = call->end_ time[6]; 
tempfl j = cail->cnd time[7]; 
end = end + (float )atoi (temp); 

if (call >start_timc[8] == call->cnd„timc[8]) { 
total — end - start; 

} else { 

total « 12*3600 - start; /* time remaining in am or pm in secs 
total = total + end; 

} 

cal!->length_secs = total; /° store in seconds format 7 
call->actual_sccs - total; 

/* bill INCOMING calls send to end 7 
if (straemp (call->numbcr "INCOMINGS) != 0) 
if (call->length_secs < NO..BILL„UNDER) { 
call->length secs = 0: 

} else call->length_sccs = call->length_secs; 

r 

} else call->lcngth_sccs = call->lcngth_sccs - NO_BILL_UNDER; 

7 

/° convert to minutes and round up 7 

trunc_valuc = (int) (call->length__sccs/60); 

if ((call->length_secs/60) > trunc_value) { 

total = trunc value + 1; /° round uo minutes 7 

* * 

} else total = tninc_value; 

call->lcngth = total; /° length stored now in minutes, adjusted 7 

} 

r ..—---- 

rt init databases: 

--—. 7 

rl init_databases() 

{ 

//include <real00Lh2> 

//include <real002.h2> 

//include <rcal003.h2> 

//include <rea!005.h2> 

} 

r ..—- 

map_final maps transmission tor final rental 
PARAMS: stale 
RETURNS* new state 

PROCESS: state* = next (state) where next (state) = switch st. below 

....,---7 

int map final (s) 

int s; /• current slate of transmission 7 

{ 

switch (s) { 

Uiute FIN AL_STATE: 

return (GETJS1UMBER); 
case GET_NUMBER: 

return (GET_POINTER); 







case GET_PO I NIT R: 

return (GETJNFO); 
case OET..INFO: 

return. (NUMBER-CALLS); 
case NUMBER CALLS: 

return (READ..METER); 
case READ_METER: 

return (LOCK_PHONE): 
ease LOCK-PHONE: 

return (POWER-DOWN); 
case POWER. DOWN: 

return (F.ND_STATE); 
case END STATE: 

return (END„STATE); 

case ERROR. STATE: /• start over V 

return (FINAL _STATE); 

) 

return (ERROR—STATE); /* state doesn't exist V 

} 


/*--- -- 

undo_return : turn on phone, unlock it and turn it off 

-- -- ./ 


undo_relum () { 
int stat; 

windef note, win ={10,7,70,9, White,Blue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Blue}; 

wintype note wt; 


note_wt = windowopen (&note_win); 

scttitlc (notc_wt,"Rclcasing Phonc*\CcntcrUppcrTitlc); 

use (note_wt); 
clrscr (); 

cprintf (" Setting Up Communication Port"); 

set_up_cti_object (<Sceco, CTI.J3AUD, CTL.PORT, 1024, 2); 
set cti buffer (&eco, &eco buff); r point sco buffer to sco buff*/ 
stat = open. ctLport (&eco); I* start interrupts V 

clrscr (); 

cprintf (" Turning On The Cellul ar Phone"); 

set_cti_cqmmand (&eco,TURN„ON); 
stat do. cti_command (<3ccco); 

if (Istat) crrrtn ("ERROR (undo_retum): Can’t Turn On Phone "); 
clrscr (); 

cprintf (” Unlocking The Cellular Phone”); 

set_cti_ command (&eco,UNLOCK_PHONE); 
stat = do_cti_command (&cco); - 

if (Istat) errrln ("ERROR (undo_relum): Can't Unlock Phone "); 
clrscr (); 

cprintf (" Turning The Cellular Phone OFF'); 

set_ctLcommand (&eco,POWF.R-DOWN); 
stat = do cti command (&eco); 

if (Istat) errrtn ("ERROR (undo_retum): Can't Turn Off Phone "); 
windowclose (note_\vt); 


} 


dose_cli_porl (&eco); 






r -- ------ 

end_rtb: Do final agreement processing billing 

--- 7 

end_rtb () 

{ 

int slat; 
int fd; 

ESTIMATED. CALLS = FALSE; 

MEMORY. .FULL - FALSE; 

/* open data base file 7 

fd = g^open ( ,, calJrec.dat , \0_RDWR 1 &call_rec); 

set_ origin (); f* set area code of phone, and connect time 7 

use (CTLwt); 

clrscr (); 

cprintf (" Opening Data Channel../ 1 ); 

sct_up_cti_object (&eco, Cn_BAUD, CTLPORT, 1024, 2); 
set cti buffer (&eco, &eco buff); r point sco buffer to sco buff 7 
stat = open„cti_port (&eco); /* start interrupts 7 

use (CTI_wt); 

clnscr (); 

cprintf ( H Starting CTI Retrieval Process... 11 ); 
stat = final.transfcr (); 

close cti port (&eco); 
if (stat <= 0) { 

call_rcc.attachcd_rccords = stat; 

g_close (fd); 
if (stat «== -29) { 

call_rcc.attachcd_ records ■» -29; 
return -29; 

} 

if ((stat 1= -25) && (stat != -26) (stat != -21)) { 

stat = damaged_phonc_predicate2 (); 
if (stat == -1) { 

c;dl_rec.aUiLched_recurds = -26 
return -26; 

) 

if (stat) { 

call rec.attached records = -25 
return -25; 

} 

} 

return; 

} 

use (CTI_wt); 
clrscr (); 

cprintf (" Parsing Data../ 1 ); 

if (!parse_data ()) { 

caILrcc.attachcd_rccords = -4; 

g_cluse (fd); 

stat =■ damaged_phone_predicate2 0; 
if (stat == -1) { 

calLrec.attachcd, records = -26; 





return - 26 ; 


} 

if (stat) { 

call_rcc.attached_records = -25; 
return -25; 

} 

return; 

> 

use (CTI_wt); 
clrscr (); 

cprintf T Calculating Hill... Call(tf): "); 
total rtb bill = rt calc billing (call rec); 

if (NUM_ESTIMATE_ CALLS != 0) 

agrccmntrcc.cstimate_flag[0] ” *Y'; 

/* had to estimate some call lengths V 
use (CTI„wt)t 
clrscr (); 

cprintf (” CTI Completed...*'); 

g_cio.se (Id); 


) 

/*- 

finals transfer 
PARAMS: none 
RETURNS 1 = success 
3 = data transmision error 
4 = phone not in box 
PROCESS: gets call info, locks phone 

----V 

int finaLtransfer () 

{ 

register int out,in,slat; 
int state = START STATE; 
int DONE = FALSE; 
int pos = 0; 
int trys; 

char abyle; 
char msg[80]; 

abyte *=• 0x01; 
raw„data[0] = \Q'\ 
state = FINAL. SI ATE; 
while (1){ 

/* determine state of transmission and do appropriate V 
switch (state) { 

case FINAL„STATF.: 

use (Cll_wt); 
clrscr (); 

cprintf ("-• Checking For Cellular Phone”); 

trys = 0; 

stat = FALSE; 

while ((trys < 3) && (!stat)) { 

sct_ctLcommand (&cco,TURN_ON); 

t»lill = do_cli„command (<Steco); 
if (Istat) 

switch (trys) { 
case 0: 




slat = Iosl_phone, predicate (); 
if (stat == -1) return -26; 

if (stat) return -29; 

break; 

case 1: 

stat = damaged_phone_ predicate (); 
if (stat " -1) return -26; 
if (stat) return -25; 
break; 

case 2: 


stat *= damaged, phone., predicate (); 
if (stat == -1) return -26; 
if (stat) return -25; 
break; 


++trys; 

} 

state map_final (state); 
break; 

case GET_NUMBER: 
use(CTI wt); 
clrscr (); 

cprintf ("-* Retrieving Cellular Phone Number”); 

sct_cti_ command (&cco.CET_NUMBER); I* get data into sco_buff V 

ulitl = do_cli_command (&eco); 

decode__phone (agreemntrec.curphoneno,eco_buff); 
if (lstat){ 


rtb_.error (-9); 
return -9; 


}; 

decode, phone (agreemntrcc.curphoneno,eco_buff); 

r see if phone is rented out or in #############*/ 


moveX (phonercc.curphoneno,agrccmnlrec.curphoneno 1 l 2); 
stat =■ reset...file9 (fd_phonc,&phonerec); 
stat = sclcctinx9 (fd_ phone,!); 

moveX (phonerecxurphoneno,agreemntrec.curphoneno,12); 
stat = exactkey9 (fd phone,&phonerec); 
if (stat < 0) { 

rtb„error (-23); 

call_rcc.attachcd_rccords = -23: 


return -23; 

} 

if (phoncrec.statuslOj !“ T') { 

phonerec.curphoncnof!21 = *\0’; 

sprintf (msg/Tliis Phone, %s, has NOT been rented 

out! ,, 1 phonerec.curphoneno); 

errrtn (msg); 

calLrcc,attachcd„rccords = -21; 

return -21; 

} 

state *= map_final (state); 
break; 

case GET POINILR: 


use (CTI_wt); 
clrscr (); 

cprintf (”-* Retrieving RTO memory pointer”); 

nu__byleis — 0; 

trys = 0; 
stat = FALSE; 

set_cti_command (&eco,GET_ POINTER); 




slat = do_eli._e:ommaiid (&ceo); 

if (!stat){ 

rtb_ error (-20); 
return -20; 

} 

: moveX (&no_ bytes,eco_ buff,2); /* move pointer to int 7 
if (nokbytes != BASE_POINTER) { 
no.bytcs = no_bytcs - BASE .POINTER + 1; /* +1 for LRC 7 

} else no_byles = 0; /* make no_byles = 07 

state *= map_.final (state); 
break; 

case NUMBER^CALLS: 

trvs = 0: 

. * 

clrscrQ; 

cprintf ("-• Pre-Parsing Data -"); 
slat = prc_parsc_num_calls (no_bytcs); 

ir (sUl<0){ 

rtb_error (-16); 
return -16; 

} 

number of calls = stat; 
clrscr (); 

cprintf ("-* Calls : %d",stat); 
state = map_final (state); 

break; 

case GET. .INFO : 

use(Cn_.wt); 
clrscr (); 

cprintf (”-• Retrieving Call DATA"); 

if (no. bytes != 0) { 

set_ctLcommand (&eco,GET. INFO); 
sct_dLrcc_.count (&cco,no_bytcs); 
s e l_c l i_ .b u ffer (&eco f & r a\v^d ala); 
stat - do_cti_command (&eco); 
set. cti. buffer (&cco,<3ccco_buff); 

} else stat = TRUE; 
if (eco.rec count got != 0) { 

LRC...PHONE = raw_.data [eco.rec. count -1 ]; 
if (LRC.PHONE != calc_rtb_LRC (raw_data,eco.rec_count -1)){ 
rtb_crror (-3); 
return -3; 

} 

) 

if (Istat) { 

rtb error (-3); 
return -3; 

} 

if (no_bytcs != 0) 

raw_dala[euo,rec_counl- 1 ] = OxFO; /* EOF char , overight LRC7 

state map_.final (state); 
break; 

case READ.METER: 
use (CTI wt): 
clrscr (); 

cprintf ("-• Retrieving Meter From Cellular Phone”); 
stat = FALSE; 

»iel_uli_.commaud (&eeo,READ_MFTER); 
stat = do__cti_command (&eco); 
if (Istat){ 

enrtri ("Could NOT get meter reading from phone!"); 


rib „error (-24); 
return -24; 

} 

METE REREADING = 0; 

if (fcco buff[0] != 0) || (cco buff[l] != 0)) 

++METER. READING; h sees if there is some round up to a minute 7 
METE REREADING += eco_buff[2]; /* add in minutes 7 
METER_READING += (cco_buff[3] * 10); f* add in 10*s of minutes 7 
MEIER^RFADING -*-= (eco_buff[4] * 60); /* add in hours in minutes 7 
METER W READING (eco_buff[5] * (60 * 10) ); f* add in 10*6 of hours in 

minutes 7 

METERWREADING += (eco_buff[61 * (60 *100) ); /* add in 100*s of hours in mins 
7 

METER.READING += (eco_buff[7] * (60 * 1000)); r add in 1000’s of hours in 

mins 7 

state = map_final (state); 

break; 

case LOCK_PHONE : 

use (CTI_wt); 
clrscr (); 

cprintf (*’-•. Locking Cellular Phone"): 
set_ctLcommand (#xco,LOCK_PHONE); 
stat = do_ctLcommand (&eco); 
if (Istat) { 

rlb_crror (-13); 
return -18; 

} 

state = map„final (state); 
break; 

case POWER-DOWN : 
use (CTI.wt); 
clrscr (): 

cprintf (”-* Turning Cellular Phone OFF"); 
set_cti_command (&eco,POWER_DOWN); 
stat = do_cti. command (&cco); 
if (!stat){ 

rtb error (-19); 
return-19; 

> 

state = map_final (state): 
break; 

case END„STATF. : 

return r rRUE; /* finished OK 7 
break; 

case ERROR STA1E : 
wait_error (); 
rtb_error (-6); 
return -6; 

stale = rnap_fmal (stale); 
break; 

} 

} 

return (TRUE); 

> 

r —--^- 

end„state 

-----7 


end.state () 




SQ 


{ 

) 

r.—-- 

get number calls 

--- •/ 

int get_number calls () 

{ 

ini r_value = TRUE; /* return value */ 

int stat; 

int count; 

int in; 

int t; 

chartemp[10],ch; 

int start_address =0x0F90; 


use (CTI_wO; 
waii_command (); 
clrscr (); 

cprimf (" -* Getting # Calls.”); 

stat = bioscom(l, NUMBER CALLS, RTB PORT); 

t = 0; 

count = 0; 

while ((count < 2) && (t < TIMED_OUT-X)){ 1* 1 sccnds V 
slat = Luoscorn (3,0,RTB_PORT); 
if (stat & BATA^READY) { 

in = bioscom (2,0,RTB_PORT); 
tempfeount] = (char )in; 

++count; 

t = 0; 

} else { 

wait_rcccivc (); f* delay ms V 
++ 1 ; 

} 

) 

iemp[2] = AO*; 

if (t >= T1MED_0UT_ X) { 
strepy (temp,"\0\0"); 
revalue = FALSE; 

} 


ch ■= tcmp[0J; /* swap bytea, to store properly in int type */ 
temp [0] = temp [1); 
temp [1] = ch; 

moveX (&number_.of_calls,temp,2); 
if (r_valuc) { 

clrscr (); 

cprintf (”-• Calls :%d",number_of_calls)i 

} else { 

clrscr (); 

cprintf ("-• ERROR: Timed Out!"); 

} 

return r_value; 




r— .—------ 

get_info 

-...7 

int get_info (int bytes) 

{ 

int r_ value = TRUE; /* return value 7 
int stat; 

float tcmpf.tcmpfl; 

int tempint,lempinll; 
int count; 
int in; 
int t; 

char temp[10],ch; 

int starL.address =0x0F90; 

use (CTI_wt); 

wait_command (); 
clrscr (); 

cprintf (”-• Receiving Call Data -> M ); 

stat = bioscom (1, GETJNFO, RTB_PORT); 

r 

/* Cm firmware comp. 8-13-1991 7 

stat = bioscom (1, (char)(bytcs & OxOOFF). RTB„PORT); 

slitt = bios corn (1, (chxr)((bylet;>>8) & OxOOFF), RTT3_PORT)i 

t* Oi l firmware comp. 8-13-1991 7 

7 

t = 0; 
count =0; 

while ((count < bytes) && (t < TIMED JDUT.JO){ 
stat = bioscom (3.0.RTELPORT); 
if (sUl & DATA_READY) { 

in * bioscom (2,0,RTB_PORT); 
raw„data[count] *°.in; 

+ +count; 
t = 0; 

gotoxy (28,1); 
tempf = (float)count; 
tcmpfl = (float)bytcs; 
if (tempint 1= lempinll) 

cprintf ( rt %d%% Completc , \(int)((tempf/tempfl)*100.0)); 
tempint a tcmpintl; 

tempint 1 = (inlX(tempt/lcmpn)*100.0); 

} else { 

wait_receive (); 

++t; 

} 

j 

if (bytes != 0) { 

LRC_PHONF. = raw_data [count -1]; 
if (LRC PHONE != calc rtb LRC (raw data,bytes-1)) 
return FALSE; 

} 

raw...data[count-l] = OxFO: I* EOF char. overight LRC*/ 
ir (l TIMED_OUT_X) 
return FALSE; 
return TRUE; 


} 





/*•-- 

calc_rtb_LRC 

-- ./ 

char calc_rtb_ LRC (char *t,int lcn) 

{ 

int i; 

char LRC; 

i-0; 

LRC- t[ij; 

i++; 

while (i<len){ 

IRC = LRCA[i]; 

++i; 

} 

return (LRC); 

} 


r------ 

get. bytes 

----./ 

int gct_bytcs (int *bytcs) 

{ 

int r_value « TRUE; /° return value •/ 

int slat; 

int count; 

int in; 

int 1; 

char temp[lG],ch; 

int starLad dress =Gx0F90; 

int end_address; 

use (Cn.wt); 
wait_command (); 
clrscr (); 

cprintf (" -* Getting # Bytes."); 

stat = bioscom (1, GET.POINTER, RTB.PORT); 

t = 0; 

count = 0; 

while ( (count < 2) && (t < 'HMED„OUT_X) ){ f 1 seends 7 
stat = bioscom (3,0,RTB_ PORT); 
il (stat & DATA JtEADY) { 

in = bioscom (2,0,RTB PORT); 
temp[count] = (char )in; 

++count; 
t = 0; 

} else. { 

wait_receive Q; /* delay V 


temp[2] = AO*; 

if (l >= TIMED_OUT_X) ( 

strepy (temp,"\0\0"); 
- r_ value = FALSE; 


} 






moveX (bytes,temp,2); 
if (revalue) { 

end_address = *bytes; 
if (*bytes == start address) { 

•bytes = 0; 

} else *bytes = *bytes - start_addre$s + 1; /• +1 FOR THE LRC V 
cirscr(); 

cprintf (**-* Bytes :%d M ,%ylcs); 

}. else { 

clracr (); 

cprintr ("-* ERROR :Timed Out!"); 

} 

if (end. address >= OxlAOO) /* if memoiy full, nin off of meter */ 
MF.MORY_FULL - TRUE; 
return r_valuc; 

} 


r -- 

open rt files 

-- •/ 

int open_rt_files() 

{ 

wmlype win; 
int iostat; 

iostat = stat("REAJ.00r\&buf); 
if (iostat < 0) 

return FALSE; 
iostat =* slat rREAL002 f \&buf); 
if (iostat < 0) 

return FALSE; 

iostat = stat ("REAL003",<Scbuf); 
if (iostat < 0) 

return FALSE; 

iostat = stat (”REAI.005’\&buf); 
if (iostat <0) 

return FALSE; 

// make sure conlrolrec is in memory 
iostat ■* reset„file9 (fd_control,&controlrec); 
if (iostat < 0) 

return FALSE; 


if ((fd_ real001= openJile9 (FILES, FSIZE5, READ_MODE,keypos_rcal001, 
FLDS_rcai00L rcalOOl Jld)) < IOCOOD) 
return FALSE; 

if ((fd„rcal005= opcn_fi!e9 (FILE9, FSIZE9, READ_MODE,kcypo5_rcal005, 
FI.DS_real005, real005_fld)) < IOGOOD) 
return FALSE; 

if ((fd_ real002= open_file9 (FILF6, fSIZF.6, READ_MODE,keypos_real002, 
FLDS_rcaI002, rca!002Jld)) < IOCOOD) 

return FALSE; 

if ((fd_ rcal003= opcn_filc9 (FILE7, FSIZE7, READ„MODE,kcypos._rcaI003, 
FLDS_real003, real003_fid)) < IOGOOD) 




relum FAI-SE; 


return TRUE; /* all databases ok and exist V 

} 

ciose_rt_files 0 

----- 7 

close„rl_files () 

{ 

closc„filc9 (fd_ realOOl); 
close_.file9 (fd_real002); 
close file9(fd rea!003); 
close. filc9 (fd realOOS); 

} 

r- ---------- 

rt_ca!c_totaI; Calc the total charge for calls; 

----- 

float rt_calc_tolal(gbaserec rec) 

{ 

int i; 

float total; 
record Jypc *call; 

total ■= 0; 
basc_cost = 0; 
long_dist = 0; 

number of calls = rec .attached records: 

i = 1; 

if (rec*attached_rccords == 0) 
return 0; 

while (i <— rec.aUached_ records) { 
call = g_get_call (rcc,i); 
base, cost +*» call->base, cost; 
long^dist += call->Iong_dist_cost; 
total = total + cail->totai cost; 

++i; 

\ 

j 

return total; 

} 

/*.. ..... 

totaLreaLminutes : add up total usage Lime base on dock chip 

.— ---7 

int totaLreaLminutcs (gbaserec rec) { 
int i; 
int total; 

record„type *cdl; 

total = 0; 

i = i; 

if (rec.attached records == 0) 
return 0; 

while (i <= rec.attached_ records) { 
call = g_gd_call (rcc,i); 

lutal += (int)cidl->Ienglh*, 

+ +i; 


} 

return total; 











rt calc biliingf): Calculate charges on every call 

float rt_calc_billinf>(£baserec rec) 

{ 

ini i,call_type = -1; /* 1 local, 2 long disl, 3 International V 
int real_minutes =0$ P total minutes used V 
int avc_minutcs — 1; /* default estimate to 1 minute V 
record, type *call; 

i = 1; 

set_origin 0; 

P ’Additional’ means calls were based off of meter*/ 

P because loo many were made. Don’t need to calc them V 
if (NUM_ESTIMATE. CALLS 1= 0) { 
real, minutes = total„rcaI. minutcs(rcc); 

if (METEREREADING > real, minutes) { 

ave minutes = (METER READING - real minutes)/NUM ESTIMATE CALLS; 

} 

} 

while ((i <= rcc.attached.records) && 

(stmemp (call->number,” Additional”, 10) 1= 0) ) { 

NO. SIGNAL = FALSE; 

gotoxy (39,1); 

cprintf (”%d'\i); 

call = g^get„call (rcc,i); 

call->!ong_dist_cost = 0; P init charges V 

call->basc_cost = 0: 

call-> total—cost = 0; 


calLtypc =1; P base case is calL.typc local V 


if ((call->number[0] == T) && (strlen (call->number) > 7)){ 

if ((call->number[2] = ’O’) || (call->number[2J — T’)) { 
call, type = 2; 

shift Jcft (call->numbcr,20): P delete the 1 V 
if (tis_ in_realOOl (call) ) 

call_type ™ 3j P international default V 
if (is_.in_control (call) ) 

call-type = 1; P dialed area code for local call*/ 

} 

} 


if ( ((call->numbcr[l] == ’O’) || (call->numbcr[l] == T’)) 

&& (strlen (call->number) > 7) ) { 
call_type ■» 2; 
if (IisJn-rcalOOl (call)) 
call_type = 3; 
if (is in control (call)) 

call type = 1; P dialed area code for local call 7 

> 


it (o*II->number[0] == 'O’) 

call_type = 1; • /* credit card call •/ 

if (stmemp (cail->number,"01" v 2) == 0) { 



call_type = 1; /* operator assistance 7 


) 

if (stmemp (call->number i , *011",3) — 0) { 

call type = 3; r direct out of country call 7 

} 

if (stmemp (call-> number,"800" *3) = 0) 
calLtypc =1; 


if (stmemp (call->numbcr, M INCOMING",8) “ 0) 
calLtypc = 1; 

if (call->flag & 0x02) f* no signal 7 
NO_SIGNAL = TRUE; 


if (call->flag & 0x04) {/"estimate length of call 7 
cail->length « ave_minutes; 
call->lcngth sees = call->lcngth * 60; 

} 

/* SEE functions bill, local, billjongdist, bilLinter etc.. 

if (ca!l->flag & 0x01) /* roam light lit, bill longdistance 7 
calLtypc = 2: 


/* if length of call « 0 do not bill, adjusted to 0 in 7 
r in parsing above in function calc call length ? 7 


} 


if ((INO.SIGNAL) && (call->length_sccs != 0)){ 
if (calLtypc ~ 1) 

bilLlocal (call); 
if (calLtypc =■= 2) { 

if (call- >flag & 0x04) { 

bill Jong_distance (call,3700); 

} else 

billJong_distancr(call,calc_dist (call)); 

) 

if (calLtypc == 3 ) 

bill __ouLcounlry (call); 

} else 

if (stmemp (call- >numbcr, ,, ROAM’\4) ■*“ 0) { 
add_jn„roaming (cail 1 call->length); 
r call->length refers to # of days in roam, only here 7 

} else { 

caIl->tdtal_cost - 0; /* no charge for call 7 

) 

—i; 

} 

return rt_calc_total (rcc); 


r 

scLorigin: set the origin of the call made 

------7 

set_origin () 

{ 

int found; 




found = FALSE; 

stmcpy (origin,controlrec.arca_code„of_tau,3); 

NO_BILL_ UNDER = controlrcc.dcL_bilUng. 3 ccs; /* act connect time V 

} 


is_in_ control : is call in data base realOCM, a local call 

9-13-1991 This has modified to really get data From the control file 

int is in control (record type *cail) 

{ 

int found; 
found - FALSE; 

f* compare area codes */ 

if (stmemp (controlrec.area_.code_of_tau,caii->number 1 3) 0) { 
found = TRUE;} 

if (stmemp (controlrec.local_area„codel,call->number,3) == 0) { 
found = TRUE;} 

if (stmemp (eontroirecdocaLarea_code2,calI->number l 3) = 0) { 
found = TRUE;} 

if (stmemp (controlrcc.locaLarca_codc3.calI->numbcr3) " 0) { 

found = TRUE;} 

if (stmemp (controIrec.IocaI_area_code4,cail->number,3) 0 ) { 
founds TRUE;} 


return (found); 

} 

r -----— 

is_in_rea!005: is call intraStale — Instate call 

---- - -v 

int ia_in_ rcalOOS (rccord__typc *cail) 

{ 

int stat.kevnum; 

strict real005_def tempOGSrcc; 

int found; 


found = FALSE; 

selectinx9 (fd_real005,keynum); 

atat ■= react. Filc9 (fd_ rcal005,&rcat005rcc); 

stmcpy (rcal005rec.mainarea,origin,3); 

stat = exactkey9 (fd_real005 1 &real005rec); 

if (stmemp (real005rec.mainarea,call->number,3) == 0) 
found = TRUE; 

if (stmemp (reaI005rcc.arcal,call->numbcr t 3) == 0) 
found = TRUE; 

if (stmemp (real005rec.area2 1 call->number.3) == 0) 
found = TRUE; 

if (stmemp (real005rec.area3,call->number,3) == 0 ) 
found = TRUE; 

if (stmemp (reidOOSree.areiULeidl-VnuiTiber^) == 0) 

found - TRUE; 

if (stmemp (rcaI005rcc.arca5,caH->numbcr,3) == 0) 
found = TRUE; 





if (stmonp (rcalOOSrcc.arc^^aJl-^numbcr^) == 0) 
found = TRUE; 

if (strncmp (rcal005rcc.arca7,call~>numbcr,3) ® n 0) 
found = TRUE; 

if (strncmp (real005rec.area8,call->number,3) = 0) 
found - TRUE; 

if (strncmp (rea!0G5rec.area9,call->number l 3) ™ 0) 
found = TRUE; 

if (slmcmp (realOOSrec.area 10,c<ill->number,3) = 0) 
found « TRUE; 

if (strncmp (real005rec.arca 1 l,call->number,3) —— 0) 
found = TRUE; 

if (strncmp (real005rec.areal2,call->number,3) == 0) 
found = TRUE; 

return found; 

} 


/•= 




is. in„rcal001 : is area code in list of documented long dist area cds. 


int is in realOOl (record type *cail) 

{ 

int stat,keynum; 

struct realOOl _dcf tcmpOOlrcc; 

ini found; 
char temp[4]; 

found = FALSE; 

selectinx9 (fd. realOOl ,1); 

stat = rcset_file9 (fd_real001,&real001rec); 

lempOOlrec = realOOl rec; 

f* compare area codes V 

temp [OJ - call->numbcr[OJ; /* the 1 is nuked in calling procedure V 

temp [I] = call->numberflj; 

temp [2] = cail->number[2]; 

temp [3] = *\0*; 

moveX (temp001rec,temp,3); 

stat = cxactkcy9 (fd_rcal001,&tcmp001rcc); 

if (slal < IOGOOD) { 

found = FALSE; 

} else found «= TRUE; 
return found; 

} 

^ ====== ^ ==== ^ =r===============:===;= ^ rr==:=:=:=======:======; 

undertime : is call under billable time, NO_BILL_UNDER 


int undertime (record_type •call) 

{ 

if (call->Iength_secs < NO_BILL_UNDER) 
return (TRUE); 
return (FALSE); 

} 


bilLlocal : bill for a local call 


billjocal (record_type *call) 


V 


7 












{ 

int stat,keynum; 
int trunc_valuc; 


r do calculations here 7 

call->total_cost = call->length * controlrec.chargc_per_minute; 
if (call->flag & 0x01) I* roam light lit add in roaming charges V 

caIl->lolal_.cosl -►= call->lenglh * conlrolrec.roam_chg_ per_min; 
call->baae_coflt *» caIl->total_coBt; 

) 


V 


sclcctinx9 (fd_rcaI002,l); 

slat = iesel_file9 (fd_real002 1 &temp002rec); 

selectinx9 (fd^realOOS,!); 

stat = reset_filc9 (fd_.rcai003 ) &tcmp003rcc); 

selectinx9 (fd_rea!005,l); 

stat2 = reset file9 (fd real005,&temp005rec); 


bill Jong_distance : bill for a long-distance call 


bill_long_d is lance (record_lype *call,flual disl) 

{ 

int 3tat,stat2,di3t_typc; 
struct real002_def temp002rec; 
struct real003 def temp003rec; 
struct rea!005_def tempOOSrec; 


/* do calculations here 7 

call*>base_cost = call->length * controIrec.charge_per_minute; 

if (call->flag <St OxOl) f roam light lit add in roaming charges 7 

call->total cost += call->length*controlrec.roam chg per min; 

call->long_ dist_cost = 0; 7* init long dist 7 


if (is_.in_reaI005 (call)) { r InlraSlale call, INSTATE 7 
/* use real002 for intrastate charges 7 
di3t_typc “ 3ct_.intra (dist); 

switch (dist_type) { 

case 1 : r 0 to 20 7 

f night time 11 pm to 8 am 7 

if (((time_to_seconds (call->start_time)) <= DAY_RATE) || 

((time Jo„scconds (call->start_timc)) >= NICHT_RATE)){ 

calI->Iong_disl_coj>l = Iemp002rec.x0lo20ni 

(temp002rec.x0to20na * (call->length - 1)); 

} else /* day 7 

if ((time_to_seconds (call->start_time)) < F.VF.NING_RATE) { 
call->long dist cost = temp002rec.x0to20di+ 

(temp002rec,x0to20da * (call->length -1)); 

} else 

if ( (timc_to_scconds (call->start_timc)) < NICH3LRATE) { 

call->U>ng_dittt_cottl — Iemp002rec.x0lo20ei •#- 

(temp002rec.x0to20ca * (call->Iength -1)); 

} 

break; 






ease 2: /* 21 to 40 miles 7 

if ( ((time„to_seconds (call->start_timc)) < DAY_RATE) || 

((timc_to_.scconds (call->3tart_ time)) >® NICHT_RATE) ){ 
call->lon£_disi_cosi = tcmp002rcc.x21to40ni + 

(tcmo002rcc.x21to40na * (call->length -1)); 

} else I* day 7 

if ((time_to_seconds (call->start_time)) < EVENING_RATE) { 
call->long_dist„cost = tcmp002rcc.x21to40di + 

(Iemp002rec.x21 to40da * (call->length -1)); 

} else 

if ( (timc_to_scconds (call->start_timc)) < NIGHT. RATE) { 
caJl->long„dist„cost = temp002rec<x21to40ei + 

(tcmp002rec.x21to40ea * (call->iength -1)); 

} 

break; 

case 3: /*41 to 70 miles 7 

if ( ((lime_lo__seconds (call->slarl_lime)) < DAY.RATE) || 

((time_to_seconds (call->start_time)) >“ NIGHT_RATE) ){ 
call->long^.dist_ cost =* tcmp002rcc.x41to70ni + 

(temp002rec.x41to70na * (call->lcngth - 1)); 

} else r day 7 

if ( (time_ to__seconds (ca!l->starMime)) < EVENING_RATE) { 
call->!ong_dist_cost = temp002rec.x41to70di + 

(tcmp002rcc.x41to70da * (cali->lcngth -1)); 

) else 

if ( (time_to_seconds (call->6tart_time)) < NIGHT.RATE) { 
cali->long_ dist.cost = tcmp002rcc.x41to70ci + 

(temp002rec.x41to70ea * (call->length -1)); 

} 

break; 

case 4: f* 1 1 to 100 miles 7 

if ( ((timc_to_scconds (call->start_timc)) < DAY„RATE) || 

((lime_lo„seconds (call->stiirl_time)) ^>= NIGHT_RATE) ){ 
cali->iong„dist_cost = temp002rec.x7 ItolOOni + 

(tcmp002rcc.x71to!00na * (call->Icngth - 1)); 

} else r day 7 

if ((time to seconds (call->start time)) < EVENING RATE) { 
call->long_dist_ cost = temp0Q2rec.x7 ItolOOdi + 

(temp002rec.x71tol00da # (call->lcngth -1)); 

} else . 

if ( (lime_lo_seconds (call->slarl_lirne)) < NIGHT„RATE) { 
caII->long_dist_co8t « tcmp002rec«x71tol00ei 

(tcmp002rcc.x71 to 1 OOca * (call->lcngth -1)); 

} 

break; 

case 5: /* 101 to 150 miles 7 

if (((time_to_seconds (cail->start_time)) < DAY.RATE) II 

((time Jo.scconds (call->start_timc)) >= NIGHTJIATE)){ 
call->Iong_disl_cost = Icrnp002rec.xl01tl50ni 

(temp002rec.xl01t!50na • (call->length - 1)); 

} else /* day 7 

if ( (time_to_seconds (call->starl_jime)) < EVENING_RATE) { 
call->long dist cost = tcmp002rec.xl01tl50di + 

(temp002rec.xl01tl5Qda * (call->length -1)); 

} else 

if ( (timc„to_scconds (call->start.Jimc)) < NIGHT.RATE) { 
cadl->Iong_disl_cosl = temp002rec.xl01ll50ei •*- 

(temp002rec.xl01tl50ca * (call->length -1))( 

} 

break; 



case 6: /* 151 to 330 miles 7 


if ( ((time_to_seconds (call->start_time)) < DAY_RATE) || 

((timc_.to__scconds (call->start. lime)) >® NIGHT. RATE))( 
call->long_disl_cost = temp002rec.xi51l330ni + 

(temp002rec.xl51t330na • (call->lcngth - 1)); 

} else /* day 7 

if ( (time_to_seconds (call->start_time)) < EVENING_RATE) { 
caIl->long_dist_cost = tcmp002rcc.xl51t330di + 

(Icmp002rec.xl51l330da * (eall->lenglh -1)); 

) else 

if ( (time. to. seconds (call->start_timc)) < NIGHT, RATE) { 
call->long_disl_cost = temp002rec.xl51t330ei + 

(temp002rec.xl51t330ca * (call->length -1)); 

break; 

case 7: I* over 330 miles 7 

if ( ((lime_lo_second:> (call->slarL.lime)) < DAY_RATE) || 

{(time_to_seconds (call->start_time)) >“ NIGHT. RATE) ){ 
call->Iong. ,dist_cost = tcmp002rcc.xovcr330ni t- 

(Iemp002rec.xover330na * (call->length - 1)); 

) else r dav 7 

if ((time.tolseconds (call->starLtime)) < EVENING_RATE) { 
cail->long_dist_cost = temp002rec.xover330di + 

(tcmp002rcc.xovcr330da * (call->lcngth -1)); 

} else 

if ( (time.tolseconds (caH->start_time)) < NIGHT.RATE) { 
calI->long. dist.cost = tcmp002rcc.xovcr330ci + 

(temp002rec.xover330ea * (call->Iength -i)); 

} 

hreak* 

} r end switch 7 
} else { /* if intra state calcs 7 

/* interstate mainland calls 7 
dist_type = set.inter (dist); 
switch (dist_typc) { 

case 1: /* 0 lo 10 miles 7 

if (((time to seconds (cali->start time)) < DAY RATE) || 

((time. to. seconds (call->start_time)) >= NIGHT.RATE)){ 
call->!ong_dist_cost = temp003rcc.x0tol0ni + 

(tcmp003rcc.x0tol0na*(call->lcngth - 1)); 

} else /* day 7 

if ( (time.to.seconds (cail->start_time)) < EVENING. RATE) { 
cail->long_dist_ cost « tcmp003rcc.x0tol0di -r 

(Iemp003rec.x0tol0da * (call->lcngth -1)); 

} else 

if ((time. to. seconds (call->start_time)) < NIGHT, RATE) { 
call->long_dist_cost = temp003rec,x0tol0ei + 

(tcmp003rcc.x0tol0ca * (call->Icngth -1)); 

j 

break; 

case 2; /* 11 to 22 miles 7 

if (((time.to.seconds (call->start_time)) < DAY_RATE) || 

((time to seconds (call->start time)) >= NIGHT RATE)){ 
call->long_dist_cost = temp003rec.xl lto22ni 

(temp003rec.x 11 to22na * (call->length -1)); 

} else P day 7 

if ( (limc_lu_seeonds (eall->slarl_lime)) < EVENINGYRATE) { 
caii->long_diat_cost *• temp003rec.xl lto22di 

(tcmp003rcc.xl lto22da * (call->lcngth -1)); 


} else 



if ( (time„to__seconds (call-VsslarL.time)) < NIGHT_RATE) { 
caJl->long_dist_cost - temp003rec.xllto22ci * 

(tcmp003rcc.xllto22ca * (call->lcngth -1)); 

} 

break; 

case 3: f* 23 to 55 miles 7 

if ( ((time_to_seconds (ca!I->starLtime)) < DAY_RATE) || 

((timc_to_scconds (call->start_timc)) >= NIGHT.RATE)){ 
call->long__dist_cosl = Ienip003rec.x23lo55ni + 

(temp003rec.x23to55na * (call->length - 1)); 

} else /* day 7 

if ( (time_to_seconds (call->start_time)) < EVENING„RATE) { 
call->long dist cost = temp003rec.x23to55di + 

(temp003rec.x23to55da * (call->length -1)); 

} else 

if ( (timc_to„scconds (call->start_timc)) < NICHT_RATE) { 
caIl->long_disl_cusl = Iemp003rec.x23lo55ei + 

(temp003rec.x23to55ea * (call->length -1)); 

) 

break; 

case 4: r 56 to 124 miles 7 

if (((time_to_.seconds (call->start. time)) < DAY_RATE) || 

((time_to_seconds (call->start_time)) >= NIGHT_RATE)){ 
ca!l->Iong_dist_cost = tcmp003rcc.x56tol24ni + 

((emp003rec.x56lul24.na * (call->lenglH - 1)); 

} clae /* day 7 

if ( (timc_to_ seconds (call->start_.timc)) < EVENING..RATE) { 
call->long_dist_cost = temp003rec.x56tol24di + 

(temp003rec.x56to 124da * (cail->lcngth -1)); 

} else 

if ((time_to_seconds (cal!->start_time)) < N1GHT_RATE) { 
call->!ongudist„cost = tcmp003rcc.x56tol24ci + 

(lemp003rec.x56lol24esA * (call->leng(h -1)); 

} 

break; 

case 5: /* 125 to 292 miles 7 

if (((time to seconds (call->start time)) < DAY RATE) || 

((time_to_seconds (call->start_time)) >= NIGHT_RATE)){ 
call->long_dist_cost - temp003rec.xl25t292ni + 

(tcmp003rcc.xl25t292na * (cail->Icngth - 1)); 

} else r day 7 

if ( (time_to_seconds (cail->start_time)) < EVENING_RATE) { 
call->long_.dist_.cost =* tcmp003rcc.xl25t292di ♦ 

(temp003rcc.xl25t292da * (call->length -1)); 

} else 

if ((time„to_seconds (call->starL.time)) < NIGHT. RATE) { 
cail->long_dist_cost = temp003rec.xl25t292ei + 

(tcmp003rcc.xl25t292ca * (call->lcngth -1)); 

} 

break; 

cue 6: /* 293 to 430 miles 7 

if ( ((time_to_seconds (caJI->start_time)) < DAY_RATE) || 

((time to seconds (call->start time)) >= NIGHT RATE)){ 
call->long„dist_cost = temp003rec.x293t430ni+ 

(temp003rec.x293t430na * (call->length -1)); 

} else I* day 7 

if ( (iime_lo_.seconds (cxll-'jslxrt_lime)) < EVENING^ RATE) ( 
call->iong_dist_cost = temp003rec.x293t430di + 

(temp003rcc.x293t430da * (call->Icngth -1)); 


} else 


temp003rec.x431t925ni + 


if ( (lime_lo_setonds (tall->slarl_lime)) < NIGHT-RATE) { 
caII->long_dist_cost = tcmp003rec.x293t430ei + 

(tcmp003rcc»x293t430ca * (calT>lcngth -1)); 

} 

break; 

case 7: /* 431 miles to 925 7 

if ( ((time_to_seconds (call->start_time)) < DAY_RATE) || 

((timc-/to_scconds (cail->start_timc)) >= NICHT_RATE) ){ 

tall->Iong„disl_cosl = 


(tcmp003rcc.x43it925na * (call->lcngth - 1)); 

} else r day 7 

if ((time to seconds (call->start time)) < EVENING RATE) { 
call->Iong_dist_cost = temp003rec.x431t925di + 

(temp003rec.x4311925da * (call->length -1)); 

} else 

if ( (lime_lo_s>etond*i (tall->slarL lime)) < NIGHT^RATE) { 
caII->long_di»t_co6t» temp003rec.x43tt925ei + 

(tcmp003rcc.x431t925ca * (call->lcngth -1)); 

) 

break* 

case 8:/* 926 to 1910 7 

if (((time_to_seconds (call->start_time)) < DAY_RATE) || 

((timc_to.jscconds (cail->start-timc)) >= NIGHT-RATE)){ 
call->long_dit;l_coi;l = Iemp003ret.x925ll91ni -*• 

(temp003rec.x925tl9lna • (call->Iength - 1)); 

) else /* day 7 

if ((time„to_seconds (call->start_timc)) < EVENING.RATE) { 
call->Iong dist cost = temp003rec.x925t 191 di + 

(temp003rec.x925tl91da * (call->length -1)); 

} else 

if ((time Jo-scconds (call->start..timc)) < NICHT.RATE) { 
taIl->long_disl_cosl = Icmp003ret.x925ll91ei -*• 

(temp003rec.x925ti91ea * (call->length -1)); 

} 

break; 

case 9: r 1910 to 3000 miles 7 

if (((time_to_seconds (call->startjime)) < DAY_ RATE) || 

((time_to_seconds (call->startjime)) >= NIGHT_RATE)){. 
call->long_dist_cost = tcmp003rcc.xl91t300ni + 

(Iemp003ret.xl91l300na * (tall->lenglh - 1)); 

} else /* day 7 

if ( (time. to. .seconds (call->stttri„limc)) < EVENING. RATE) { 
call->long_dist_cost = Iemp003rec.xl91t300di + 

(temp003rec.xl91t300da * (call->length -1)); 

} else 

if ((time_to_seconds (call->starl_timc)) < NIGHT_RATE) { 
call->long..dist_cost = temp003rcc.xl91t300ci + 

(Iemp003ret.xl91l300ea * (tall->lenglh -1)); 

) .. 

break; 

case 10: /* 3001 lo 4250 miles 7 

if (((time to seconds (call->start time)) < DAY RATE) || 

((time_to_seconds (call- >start_time)) >= NIOHT_RATE)){ 
cal!->long_dist_cost = temp003rec.x301t425ni + 

(tcmp003rcc.x301t425na*(call->lcngth -1)); 

} else f* day 7 

if ( (timc_to_oeconda (call->etart_time)) < EVENING_RATE) { 
calI->long_dist__cost = tcmp003rcc.x301t425di + 

(temp003rec.x301t425da * (call->length -1)); 



) else 

if ( (time_to_seconds (call->start_time)) < NI GHT_ RATE) { 
call->long„di3t_co3t = tcmp003rcc.x301t425ci ♦ 

(Iemp003rec.x301t425ea * (call->lengtta-1)); 

} 

break; 

case 11 :/* 4251 to 5750 7 

if ( ((timc_to_scconds (call->start_timc)) < DAY_RATE) || 

((lime_.lo_seconds (calI->slarL.time)) >= NIGHT_RATE) ){ 
cail->long_disi_co8t ■* temp003rec.x425t575ni + 

(tcmp003rcc.x425t575na * (call->lcngth - 1)); 

} else r day 7 

if ( (time to seconds (cail->start time)) < EVENING RATE) { 
call->long F _dist_cost = temp003rec.x425t575di + 

(temp003rec.x425t575da * (call->length -1)); 

} else 

if ( (lime_lo_ seconds (call-->sliirl__lime)) < N1GHT_RATE) ( 
call->long„diat_cost =» temp003rec.x425t575ei + 

(tcmp003rcc.x425t575ca * (call->lcngth -1)); 

} 

break; 

} r end switch 7 

} /* end else and interstate mainland longdistance charges 7 

calI->long_disl_cosl = (c;*Il->long„d!sl„cosl *(conlroIicc.Iong„dist_mHrlLup 1)); 

/* make it 1.xx percent »> HERE AAA 7 

round, f (&call->long_dist_ cost); /* round cost V 
call->totaLcost = call->base_cost + call->long_dist_cost; 
r and wall-a a bill is created veah! 7 

m 

) 

r— ---- 

sel_inlr*i : set intrastate call code 

7 

int sct„intra (float d) 

{ 

if (d <= 20) 

return 1; 
if (d <= 40) 

return 2; 
if(dc=70) 

return 3; 
if (d <- 100) 

return 4; 

if (d <= 130) 

return 5; 
if (d <= 330) 

return 6; 

return 7; /* over 330 miles V 

} 

r- --- 

set inter: set interstate call code 

--_i---7 

int set Jnter (float d) 

{ 

it (d <= 10) 

return 1; 
if (d <= 22) 

return 2; 






if (d <= 55) 

return 3; 
if (d <= 124) 

return 4; 
if (d <= 292) 

return 5; 
if (d <= 430) 

return 6; 
ir (d <= 925) 

return 7; 
if (d <« 1910) 

return 8; 
if (d <= 3000) 

return 9; 
if (d <= 4250) 

return 10; 
if (d <= 5750); 

return 11; 

return 11;/* should never get here 7 

} 

bill_out_country 

bill _oul_counlry (record_lype *e-dl) 

{ 

int stat; 

call->total_cost = call->length * controlrcc.int„minute_rate + 

call->length * controlrec.roaxn chg per min; 
/* add in roamer charges even on international calls 7 
calI->base_cost = call-MotaLcost; 

) 


calc_dist: calculate distance of call; 

float calc_ dist (record Jype *call) 

< 

int stabkeynum; 

struct realOOl.def lempOOlrecJroin^o; 
int found,found2; 
char tcmp[4J; 
float dist; 

found = FALSE; 
found2 = FALSE; 


£>elecltnx9 (fd„re;d001,l); 

stat « reset_file9 (fd_real00 i ,<Streal001 rec); 

tempOOlrec = realOOlrec; 

r compare area codes 7 
moveX (temp001rec.areacode,origin,3); 
stat = exactkey9 (fd_real001,&temp001rec); 
if (stat >= IOCOOD) found = TRUE; 

from = tempOOlrec; 


temp |pj = call->numbcr[OJ; /* 1 stripped earlier in front of call 7 
temp fl] = call->numberfl]; 







temp [2] — ca.ll->number[2]; 
temp [3] = \O f \ 

movcX (rcaI001rcc.arcacodc,tcmp,3); 
stat = exactkey9 (fd„real001,&real001rec); 
if (stat >= IOGGOD) { 

if (found) found2 = TRUE; 

) 

to = rcalOOlrcc; 

/* means it found both area codes V 
if (found2 “ TRUE) { 

dist = CHART_MILE * sqrt ( 

((from.coordx - to.coordx) * 

(from.coordx - to.coordx)) + 
((from.coordy - to.coordy) * 

(from.coordy - to.coordy))); 

return (disl); 

) 

f* dist = CHART_MILE * SQAURE-ROOT ( (xl-x)~2 ^ (yl-y)~2); V 
return (5700); /* problem return */ 

} 


6 / 


CREDIT. ,C 


/* --- 

* — ~ 

MODULE :Credit,c VERSION 2.01 

Credit Authorization Module : CREDIT 11/90 
Written By : Greg McGregor 1990 

REVISION: What was revised? 

- GMM 7-30-1991 Nothing 

- GMM 8-10-1991+ Reserve money and push it through 

--- --—- - -- ; -*/ 

ttinclude <stdio.h> 

It include <stdlib.h> 
tfinclude <string.h> 
tlinclude <conio.h> 
tfinclude <time.h> 

It Include <window.h> 
tfinclude <math,h> 
tfinclude <float.h> 
tfinclude <dos.h> 

Itinclude <bios.h> 
tfinclude "as i ports, h" 
tfinclude "ibmkeys.h" 
tfinclude "gf.h" 

ttinclude <windows.h> 
tfinclude <gkeys.h> 
ttinclude <gbase.h> 
tfinclude <extnvar.h> 
ttinclude <gstring.h> 
tfinclude ctaustat . h> 

wintype c_win,auth_wt; 

ttdefine FULL 1 /* duplex definition */ 

ttdefine HALF 0 

tfdefine MODE AS I NOUT | BI NARY | NORMAL RX . /* BINARY OR ASCI I , Binary has 

8 

sig bits*,/ 

tfdefine RXLEN 1000 /* Receive buffer size */ 

ttdefine TXLEN 1000 /* Transfer buffer size */ 

ttdefine ECHO 0 /* 0 off, 1 on */ 

ttdefine SPEAKER OFF 

ttdefine RTS ON 
ttdefine DTR ON 

ttdefine MAX_T.1ME 30 /* MAX_T1ME secs to connect or program w 

i 11 

terminate- */ 

ttdefine SECONDS 4 . /* to wait for hm command to work */ 


int CREDIT PORT 


COM 8 ; . 


/* 0,1 cornl and corn? etc. . */ 
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int CREDIT_PARITY 

= P_EVEN; 

/* 

cdc 

req, 

P_N0NE, P_0DD 

etc.. */ 

int CREDIT STOP BITS 

= 1; 

/* 

cdc 

req, 

1 or 2 otherwi 

se */ 

int CREDIT WORD _L ENGTH 

= 7 ; 

/* 

cdc 

req, 

7 data bits, 1 

parity */ 

int CREDIT BAUD 

= 12 00; 

/* 

cdc 

req 

baud */ 

int CREDIT DUPLEX 

= FULL; 

/* 

cdc 

req* 

/ 


/* variables that change are now listed */ 
docket clock(void) ; 

int TIME; /* used for timing out the transaction, 

timing it V 

int PORTERROR; /* return value for port errors */ 

char far authnumber[80]; 
int error_check; 

char far cdc_response[255]; /* a geneeric response to be 

displayed */ 

int far response^code; /* a code generated to give status 

of 

transaction */ 

int far program_error; /* returns <0 if there was a program 


exec probelm */ 

char far authorization number[80]; /* authorization number for approva 

1 */ 


char far callnumber [80]; /* phone number to call for person to 

person authorization*/ 


c ha r 

far 

cardname [00]; 






char 

far 

card_number[255]; 

/* 

card_num 

ber 

s torag 

e* / 

char 

far 

expr date[255]; 

/* 

expirati 

on 

data 

*/ 

char 

far 

approval amt[255]; 

/* 

approva1 

amount 

*/ 

char 

far 

code[255]; 

/* 

t ransact 

i on 

code 

*/ 

char 

far 

siteid[15]; 

/* site id 

*/ 



char 

far 

phone_no[00]; 

/* 

a phone_ 

no 

to call 

for 


credit auth */ 


tX/ 4^ 

* credit_open_port 

* params : takes a communication port, int port 

* returns : error code 

* function: .opens the port for Async communications. 

y 

^T' ^9^ ^9* g 

int credit_open_port (port) 
int port; 

{ 

int stat; 



stat = ASSUCCESS; 

if ( (system_type == SAMSUNG) || (system_type == 
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RO_SYSTEMS) ) 

if ( (stat = asisetv 

(port,0x2E8,13,0x20,IRQ5,2,NO,0,0,0,0)) <ASSUCCESS) { 

return (stat); 

} 

V 

if ((stat = asifirst (port,MODE,RXLEN,TXLEN)) < ASSUCCESS){ 

return (stat); 

} 

if ((stat = asiinit( 

port,CREDIT_8AU0,CREDIT_PARITY,CREDCT_STOP_eITS,CREDIT_WORO_LEN6TH)) 

< ASSUCCESS ) { 
return (stat) ; 


K . 

i:.’ 


if ('(stat - asdt r(port,ON)) < ASSUCCESS) 

return stat; 

if ( (stat = asrts (port,ON)) < ASSUCCESS) 

return stat ; 

if ( (stat = asistart(port,ASINOUT)) < ASSUCCESS) 

return stat; 
return (stat); . 


/ 

/ ^ | 

initia 1ize_modem 
setup modem 

w 

f 

initialize_modem (port) 
int port; 

{ 

int error; 

error^check = FALSE; 

use (auth_wt); 
clrscr( ) ; 

cprintf (" 


/* diagnostics variable*/ 


cprintf (" Initializing Modem..."); 

HMWa itForOK ( T ICKS_PER_SECOND*SECONDS , NUI.L ) ; 


error = HMReset (port); 
if (error < ASSUCCESS) { 

use (aut h_wt); 
c1rscr ( ) ; 
cprintf ( " 
return error; 


/* reset modem */ 


ERROR: Can’t Reset modem"); 


/* set echo */ 


if (ECHO == 0) 

if ( (error = HMSetEchoMode (port,OFF)) <ASSUCCESS) 

return error; 

if (ECHO == 1) 

if ( (error = HMSetEchoMode (port,0N)) <ASSUCCESS) 

return error; 

if ( (error = HMSetVerboseMode (port,0N)) < ASSUCCESS) 
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return error; 

/* verbal response */ 

if ( (error = HMSetFu11OuplexMode (port^N)) < 
ASSUCCESS)/* duplex FULL */ 


set speaker */ 


return 


return error; 

if ( (error = HMSetSpeaker 

return error; 
(ASSUCCESS); 


(port,SPEAKER)) <ASSUCCESS) 


> 



* 

* 

* 

* 

* 

* 


function 


* do_dia 1() 

params :takes a port and a phone_number. 
returns : none, 

dials up host. steps in logic 
1 ~ reset modem 
7 - set specs 
3 “ dial modem 

O/ t 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / 

int dodial (port,phone_number) 
int port; 

char phone_number [] ; 

{ 

int error; 

char modem_cdc_response,dial string[40] ; 
clock t start.end; 


modem_cdc_response = NULL; 

if ((error = initial ize_modem (port)) != ASSUCCESS) return (err 

or); 

use (auth_wt); 
clrscr(); 

cprintf (" Dialing...“); 

HMSetWait!imeForCarrier (port, 60) ; 

if ( (error = HMDial (port,phone_number)) <ASSUCCESS) /* 

dial number */ 


start 
end = 


signal */ 


return error; 

- c 1oc k (); 
c 1 oc k ( ) ; 

while ( ! i s_connected__CDC (port)) { 
modem_cdc response = asigetc (port); 
if (modem_cdc_response == ’B'){ 

return (-21);} /* BUSY 


gotoxy (40,1); 

end = c1ock (); 

cprintf ("%d", ( int )((end-start )/CL. K_TCK ) ) ; 

if ( ( int ) ( ( end-start )/CLK_TCK) >= MAX_TIME) 

return (-26); 

} 

cIrscr ( ) ; 

cprintf (" Connected!"); 
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return (AS3UCCESS); 

} 

/ \^ s±* 

^fi 

credit hang up 

disconnects the phone. 

\ty / 

*y* f 


int credit_hang_up (port) 
int port; 

{ 


int i,stat; 

for ( i = 1;i<4;++i ) 

asiputc (port,'+’); /* send hang.up string */ 

if ( (stat = send _st r i ng ( port,“ ATH0\r\0") ) < ASSUCCESS) {/* go on 

hook */ 

asiquit (port); /* try and shut off interrupts anywar */ 
return stat; 

} 

stat = asiquit (port); /* deativate greenieaf */ 

return stat; 


§ ^ -. I i- *-1^ -i> 

/ 

is_connected_CDC 

returns true if we are is_connected 

/ 

/ 

int is_connected_CDC (port) 

Int port; 

{ 

int stat; 

stat = (isod (port,CUMULAT I VE ) ) ; 
return stat; 

} 


CDC to host 




/ ^/ -J - ^ j »-J» 

' ^T' O' ^T' 

* calc_J_RC () 

* params : char t[] 

* returns: char 

* function: calculates the exclusive Oring of ail the char's 
* in t with the exception of the first character. 

^Jy Ll/ |^y ^^Ly M 

O* O' O' ^p O' ^p ^p ^p o' O' O' $ 


char calc LRC (t) 
char t [] ; 

{ 

int i ; 
char LRC; 

i = 1; /* start at 1 to skip the STX char, first char */ 

LRC = t[i]; . 

i++; 


CREDIT .C 


while (t[i] != '\0'){ 

LRC = LRC^t [i ] ; 
++i ; 

} 

return (LRC); 


—-X^» «■!« *-1 ■» »-J « 

* bun 1d_tnansmition_string () 

* params ; takes card_number,expr^date,approva1 _amt,code 

* returns : (char *) 

* function: builds the data string that wi1i be transferred 

* cdc for authorization. 

fci m »i* fcj-* »j « ».x -■ ^x# »i* ^i-j »-x j fci.j -X.* y 

^ y 


to 


char *build_transmition_string (card number,expr^date, 

approva*1 amt , code , si t ei d , aut h_no) 

char card^number [] ; 

char expr_date[]; /* card expiration date */ 

char approva1_amt[]; 

char code[]; /* transaction code */ 

char siteid[]; /* site id*/ 

char auth_no[]; 

{ 

char transmition^string[255] ; 


char LRC; 
int i; i = 0; 

transmition_string[i] - '\0'; 

*/ 

/ 


st rNUMcat (transmitionstring,2); 


/* start string will 
/* Hex 2, stx */ 


NUL t 


/* a r P. * spec "hex 502E */ 

strNUMcat (transmition^string,80); /* hex 50 dec 80*/ 

strNUMcat (transmition_string,46); /* hex 2E dec 46*/ 

strcat (transmition string # "000000"); /* 6 zeros */ 

strcat (transmition_string,siteid); /* 5 char site id */ 

strcat (transmit ion string,"00000“); /* 5 zeros */ 

strNUMcat (transmition_string,28); /* hex 1C, spec FS char */ 


/* WCC char configuration*/ 

/* bit 7 (MSB) Even parity bit */ 

/* bit 6 Always a 1 1 1 */ 

/* bit 5-2 not used */ 

/* bit 1 multiple transaction indicator bit */ 
/* bit 0 Magnetic stripe indicator bit */ 

/* currently the WCC looks like */ 

/* bin 01000000 or dec 64 */ 
strNUMcat (transmition_string # 64); /* WCC */ 
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t 


» 


strcat (transmition.string,card_number); 

strNUMcat (transmition string,28); /* hex 1C, FS char */ 

strcat (transmition_string,expr date); 

strNUMcat (transmition_string,28); /* FS char */ 

strcat (transmitionstring,approval_amt); 

strNUMcat (transmition_string,28); /* FS char */ 

strcat (transmi.tion str ing , code) ; 

/* code determines what type of transaction */ 

/* that will occur */ . 

strNUMcat (transmition string,28); /* FS char */ 

strcat (transmition_string,auth no); /* auth code */ 

strNUMcat (transmition_string,28 ) ; /* FS char */ 

strNUMcat (transmition_string,3); /* ETX char hex 03 */ 

I..RC = calc_LRC (transmi t i on st ri ng ) ; 

strCHcat (transmitionstring,LRC); 



j 

k 

i 


t 

i 

t-* 


strCHcat (transmitionstring,’\0'); 
return (transmitionstring); 


/ ^l# \Lf *,^L# 

Send 4 periods to al 

»-J/ 

M 


low CDC to detect 


our baud rate. 


send_baud__detect ( port) 
int port; 

{ 

i n t stat; 


delay (4000); /* wait exactly 4000 ms or 4 secs */ 

if (!is_connected CDC (port)) return (-99); /* connection failed */ 
if ((stat = asiputc (port / . ')) < ASSUCCESS) return stat; 

if (!is_connected_CDC (port)) return (-99); /* connection failed */ 
delay (200); /* 200 ms delay */ 

if ((stat = asiputc (port, 1 ,')) < ASSUCCESS) return stat; 

if (!is_connected_CDC (port)) return (-99); /* connection failed */ 
delay (200); /* 200 ms delay */ 

if ((stat = asiputc (port,'. 1 )) < ASSUCCESS) return stat; 
if ((stat ” asiputc (port,'. f )) < ASSUCCESS) return stat; 
if ((stat = asiputc (port,'\r 1 )) < ASSUCCESS) return stat; 
return ASSUCCESS; 




iWUPhPtlMk «f Y* 
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send_password 

log onto EFTDS, 

i 

f|* w 


funds transfer 


int send _password (port) 
int port; 

{ 

1 nt ch,error = 0 ; 
clock t start,end; 
start = clock () ; 
end ~ clock ( ) ; 

while ( ((ch = asigetc (port)) != ’>*) && ( ((end-start )/CLK_TCK) < 

MAX„TIME) ){ 

end = clock (); 

} 

if ( (end-start )/CL.K_TCK >= MAX _T 1 ME ) 
return -10; 

delay (200); /* wait 200 ms before sending EFTDS */ 

error = HMSendStringNoWai t ( port , “ EFTDS 1 ' , *\r * ) ; 
return error; 

> 


t 

M rffv iVt 


* 

* 

* 

* 

* 


talk () 
params : 
returns 
function 


port, and a data string 
none . 

holds the connection between host and terminal. 
sends and recieves authorization for credit cards. 


\L, lIj § 

^ ^ / 


* 

h 


r 



¥ 


i 


t 

j - 


) 

j 

4 


• ^ 


int talk (port,transmit_string ) 
int port; 

char transmit_string[]; 

{ 

char recieve_string[255] ; 
char he!per[255]; 

int stat ,CDC_LRC,L RC; 
int i ; 

int ours,error; 

int transmitting =0; 

hmcarron (port,1 ) ; /* turn carrier on */ 

use (auth_wt); 
clrscr( ) ; 

cprintf (" Sending Baud Detect..."); 

if ( !is_connected_CDC (port)) return (-99); /'* connection failed 

*/ 

if ((stat = send_baud_detect (port)) < ASSUCCESS) return (-23); 
c1rscr (); 

cprintf (" Sending Password..."); 

if ((error = sendpassword (port)) < 0) return (error);. 

if (!is_connected_CDC (port)) return (-99); /* connection failed */ 
c1rscr (); 


• r 


Iwiy** * ^|r 
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cprintf (" Sending EFT Request..."); 

i = s t a t = 0 ; 

recieve_string [ i ] = '\0'; 


whi 1 e 
failed */ 


((stat != 4)){ /* hex 4 is EOT */ 

if (!is_connected_CDC (port)) return (-99); 


/* connection 


while ((stat = asigetc (port))> -1){ 
switch (stat) { 

case 5 : /* ENQ they want the data*/ 

use (auth_wt); 

clrscr(); 

cprintf (” Transmitting, . . “ ) 


# 


ASSUCCESS) { 


transmitting = 1 ; 

error = send_string (port,transm1t_string) ; 

if (error < 


return 

> 

/* wait for buffer to empty */ 
/* means string was send */ 

i f 

( !is_connected_CDC (port)) return (-99); /* connection failed */ 

while ((!istxempty (port))) { 


(error ) 


if 


( ! is_connected_CDC (port)) { 
*/ 


return (—99); /* connection failed 


} 

} 

break; 

case 21 : /* NAK, CDC didn't understand us */ 

use (auth_wt); 

c1rscr(); 

cprintf ( 11 Re-Trying 

Transmition. . . " ) ; 

error = send ^st ring (port,transmit_st ring ) ; 
if (error) return (-23); 

/* wait for buffer to empty */ 

/* means string was send */ 

if 


( !is_connected_CDC (port)) return (-99); 

while ((!istxempty (port))) 


if 


( !is_connected_CDC (port)) return (-99); /* connection failed */ 

break; 

case 2 : /* STX sending data to us */ 

use(aut h_wt); 

clrscr(); 

cprintf (" Receiving... M ) 
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X*/ 


( ! is_connected_CDC (port)) 


( !is connected CDC (port)) 


recieve_string[0] = '\0'; 

strCHcat (recieve_string,?); /* add STX */ 
while ((stat = asigetc (port)) != 3) { /*ET 


if (stat > -1) 

strCHcat (recieve_string,stat); 

i f 

return (-99); /* connection failed */ 

} 

/* add ETX to string for calculating LRC */ 
strcpy (helper,recieve_st ring); 
strNUMcat (helper,3); 

while ((stat = asigetc (port)) <= -1) 

if 

return (-99); /* connection failed */ 

CDC_LRC = stat; 

LRC = calc_LRC (helper); 

/* this next if determines if we understood 


CDC or not */ 


string */ 


if (LRC == CDC _LRC){ 

asiputc (port,6); /* ACK char */ 

}else { 

asiputc (port,21); /* NAK char*/ 

} 

/* zap ETX from end of 


zapETX (recieve_string); 

if ( ! is_connected_CDC (port)) return (-99) ; 

/* 

connection failed */ 

/****** temp until find out about eot */ 


goto done; 


break; 

case 4 : /* EOT */ 


(!is_connected_CDC (port)) return (-99); 

goto done; 
break; 


i f 

/* connection failed */ 


} 

} 

} 

doner strcpy (cdc_response,recievestring); 
return (0); /* success */ - 

} 



f r 

l 


* 

l 

i 



i. 

* 


l* 


J 


r » 




- ■ 


* 


/* puts a NULL on the end of a string over the ETX char */ 
zap_ETX (s) 
char s[]; 
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{ 

int add; /* address positioning */ 
add = 0; 

while (s[add] ! = 3) ++add; 
s[a d d] = NULL; 

} 


»!■» 

send a command to the 

* t-* tX^ tX^ |X^ § 

^P^ i^S f 

sendToModem (port,t) 


modem 


int port; 
char *t; 

{ 

int stat,error; 

error = FALSE; 

while (*t){ 

if ((stat = asiputc (port,*t++) ) 

return (stat) ; 

} 

stat = asiputc (port /\r V) ; 
return (stat) ; 

} 


< ASSUCCESS) 


iX# i|^j 

^^P^ ^^p% ^r*. 

* send_string (port,t) port, and string t 

* returns : error, -23, if can't place char in 

* functions: sends a string through the modem 

X# ^Xy X» ^Xy y 

/y^ y 


buffer 


int sendstring (port,t) 
int port; 
c ha r *t; 

{. ■ 

int stat; 

whi1e (*t) { 

if ((stat = asiputc (port,*t++)) < ASSUCCESS) 

return (stat); /* put error to port */ 

} 

return (ASSUCCESS); 



/ ^Xy ^Xy yl/ 

f ^^P% ^P^ 

based on format they send back 
pray it doesn’t change 

^Ay ^Xf ^y Xy X 

/ 


extract authnumber (va1,r,a) 
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int val ; 
char r [ ] , a [ ] ; 

{ 

int i = 0; 

switch (val) { 

case 1: 

"approval" */ 
code */ 
code */ 

case 2: 

"accepted" */ 

code */ 

batch code */ 

saves 1 digit of spac*/ 

shit */ 


*a = NULL; 

while (*r != ' ') ++r; /* get passed word 

whi le (*r == ' ') ++r; /* move to start of auth 

while (i <= 6) { /* first 6 digits are the auth 

^ r) "4* + 2= ^p + + J 

++i ; 

} 


*—a = 
break; 

NULL ; 




* 

*a = NULL; 





whi 1 e 

(*r ! = ' 

' ) 

+ +r ; 

/* get 

passed word 

whi 1 e 

(*r == ' 

’ ) 

+ + r ; 

/* move 

to start of batch 

whi 1 e 

(i < = 8) 

{ 

/* 

first 8 

digits are the 


i .♦ 

if (*r != /* take out the 


} else r++; 

+ +i ; 

> 

/* don't add null because field is only 8 chars, 
break; 



} 


/** getToken gets the next word from a string ending with a space **/ 
/** and stores the word in t **/ 
getToken (s,t) 
chars[],t[]; 

{ 

int add; 

add = 0; 

while (((t[add] = s[add]) != ’ ') && (t[add] != NULL)) ++add; /* 


get 

a word ending with space */ 
t[add] = NULL; 

} 


parse.cdc response (r) 



V 


• „ * 
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char r(); 

{ 

chan a[80],error[80]; 
int parsed; parsed = 0; 

*a = NULL; 

getToken (++r,a); /* skip STX and get first word from r into a */ 

if (strncmp (a , "DECLINED",8) == 0) { 

strcpy (cdc_response,“Dec!ined - Please get another card."); 
responsecode = -1; 
parsed = 1 ; 

} 

if (strncmp ■( a.APPROVAL ", 8 ) == 0) { 

extract_authnumber (1,r,authnumber); 

strcpy (cdc_response,"Approved - Authorization Number : 




t 


1 

I. 

i 

i v 
J 






strcat (cdc_response,authnumber) ; 

strcpy (authorization_number,authnumber);. 

responsecode = 0; 

CARD_APPROVED = TRUE; 
parsed = 1 ; 

> 

if (strncmp (a,"ACCEPTED",8) == 0) { 

extract_authnumber (2,r,authnumber); 

strcpy (cdc_response,"Approved - Batch and Item Number 


■'i* 


* * 


st rcat (cdc_res ponse,aut hnumber); 

moveX (authorization^number,authnumber,8); 

/* do a moveX so as not to overright next field in 

agreemntrec */ 

/* This is because of space problems in the 

current agreemtnrec */ 

responsecode = 0; 

CARD_APPROVED = TRUE; 
parsed - 1; 

} 

if (strncmp (a , " HOL 0-CALL 11 , 4 ) == 0) { 

strcpy (cdc_response,“Confiscate card - (if safe) and 

use another"); 

response_code = 
parsed ~ 1 ; 

} 

if (strncmp (a,"CALL",4) == 0) { 

*ca11 number "NULL; 

strcpy (cdc_response,"Call - "); 
extract_phonenumber (r,ca11 number); 

st rcat (cdo_response,ca11 number); 
response^code = -3; 
parsed = 1 ; 

} 

if (strncmp (a, "INVALID" ,7 ) == 0){ 
terror = NULL; 

strcpy (cdc^response,"An “); • 

streat (cdc_response,r); 

streat (ede^response," was entered. Try again."); 
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response_code = -4 ; 
parsed = 1 ; 

} 

if (strncmp (a,"UNAVAILA8LE",11) == 0) { 

strcpy (cdcresponse,“Draft capture not available."); 
response_code = -5; 
parsed = 1; 

} 

if (strncmp (aRE-ENTER",8) == 0) { 

strcpy (cdc_response,"Credit card authorization failure 

Try aga in."); 

responsecode = -6; 
parsed = 1 ; 

} 

if (strncmp (a,"N0N-SU8SCRIBER",3) == 0) { 

strcpy (cdc_response,"We do not subscribe to requested 

credit card."); 

responsecode = -7; 
parsed = 1; 

} 

if (strncmp (a,"AGENCY",6) == 0) { 

strcpy (cdc_response,"Transmition failed. No response. 

Try again . "); 

responsecode = -8 ; • 
parsed = 1; 

} 

if (parsed != 1) { 

strcpy (cdcresponse,r); 
seterror (-20); 
responsecode = -20; 

} 

} 


/* extract phone number from cdc's cdc_response */ 
extract phonenumber (r,p) 
char r[],p[]; . 

{ • 
inti; 

r = r +4; /* skip the word CALL. 4 chars long */ 

i = 0 ; 

while ((p[i] = r[i]) && (i <= 11)) ++i ; 

} 


/* main procedure logic for cdc specs */ 
int call_cdc 

(card_number,expr_date,approval_amt,code,siteid,phone_no,auth no) 
char card number[); /* card number storage*/ 

char expr_date[]; /* expiration data */ 

char approval amt[); /* approval amount */ 


Page 14 


CREDIT.0 


char 

code[]; 

/* 

transaction code 

*/ 

char 

s i t e i d [ ] ; 

/* 

s i t e i d 

*/ 

char 

char 

phone_no[]; 
auth_no[]; 

/* 

phone number to call 

V 


{ 

int stat,error; 

int approval code; 

char transmit_string[255]; 




i, 
! 



CARD_APPROVED = FALSE; 

strcpy (transmit_string , bui ld._transmit1on_string (card_number , 

expr date, 


approval amt, 


code,siteid,auth_no)); 

strcpy (cdc_response,Unknown System Error -* Call TELEMAC"); 
response_code = -1; /* set to declined */ 
program_error =0; /* set to none */ 


if ((P0RT_ ERROR = credit open_port(CRE DIT PORT)) != ASSUCCESS){ 

program_error = P0RT_ERR0R; 
set error (P0RT_ERR0R); 
return (P0RT_ERR0R); 

} 

error = do_dial (CREDIT PORT,phone_no); 
if (error == -21){ 


programerror = -21; 
seterror (-21); 

response code = -21; 
return (-21); 

} 

if (error == -99){ /* connect ion broken */ 

program^error = -99; 
set_error (-99); 
responsecode = -99; 
return (-99); 

> 

if (error == -26) { /* no phone lines, can't’connect 


l 




I 


program_error = -26; 
set_error (-26); 
response_code = -26; 
return (-26); 

} 

if (error != ASSUCGESS) { 
set_error (error); 
return (error); 

} 

error = talk (CRED-I T_P0RT , t ransmi t_st ring ) ; 
if (error ” -23){ 

program_error = -23; 
set_error (-23); 
response_code = - 23; 
return (-23); 


} 

if (error 


-99){ 
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> 


program_error = -99; 
set error (-99); 
response_code = -99; 
return (-99) ; 


parse_cdc_response (cdc_response); 
return (error); 


char *print_TF (n) 
int n; 

{ 

if (n){ return ("YES");} 
else return ("NO"); 


: strcpy (cdc response, 


} 


setterror (error) 
int error; 

{ 

switch (error ) { 


Error ! " ) ; 


case -I 

Range!“) ; 


case -2 



case -3 

Requested ! " 

); 

case -4 

Buffer(s) ! " 

); 

case -5 

asiopen!" ) ; 


case -6 


break; 

: strcpy (cdcresponse, 

break; 

: strcpy (cdc_response, 

break; 

: strcpy (cdc^response, 

break; 

: strcpy (cdc response, 

break; 

; strcpy (cdc_response, 

break; 

; strcpy (cdcresponse, 

break; 

:strcpy (cdc_response, 

break; 


Not Ot herWise Defined 

Requested Port Out of 

Port Already Setup!"); 
Invalid Buffer Size 

No Memory Available for 

GreenLeaf setup not run 

Invalid Parameter!"); 
Function timed out!" ) ; 
No 8250 UART at I/O 

" - Try again , " ) ; 

"Phone was Busy. Try 


case -7 
case -10 

case -14 ;strcpy (cdc^response," 
Address, CALL TELEMAC”); 

break; 

case -20 ; strcat (cdc_response, 

break; 

case -21 ; strcpy (cdc response, 


again,"); 
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case -22 

: strcpy 


case -99 

: strcpy 

AGAIN!."); 




case -23 

: strcpy 

T ransmission. 

Try again.“ ) ; 


case -24 : strcpy 

-(ira004.ret) CALL TELEMAC"); 

case -25 ; strcpy 

-( i ra004 .dat) CALL. TELEMAC' 1 ) ; 

case -26 : strcpy 

1 ine cables!"); 

case -27 : strcpy 

malfunctioned."); 

} 

} 


break; 

(cdc_response, "Modem NOT Responding. . . "); 
break ; 

(cdc_response # "Connection broken. TRY 

break; 

(cdc response,"Error in data 
break; 

(cdc response,"- Disk Error 

break; 

(cdc_response,"- Disk Error 

brea k ; 

(cdc /esponse, "No answer or No phone 
break; 

(cdc^response,"Computer 1 s clock has 

* 

break; 





! 


i 

i 


! 


( 


t 

r 


t 

t , 


1 • 


i 

. 


t 

t 


V * 


int check_for_errors (port) 
iht port; 

{ 

int stat; 
if (error_check) { 

printf (" Communications D1agnot1cs\n" ) ; 

stat = isalert (port); printf ("\nNOTE - Is alert flag set? 

%s",print_TF(stat ) ) ; 

stat = isrxempty (port); printf (“\nNOTE - Is RX Buffer 
Empty? %sprint_TF(stat)) ; 

stat = isrxovf'low (port); printf ("\nNOTE - J.s RX Buffer 
Overflow? %s",print_TF(stat )) ; 

stat = istxempty (port); printf .("\nNOTE - Is TX BUFFER emtpy? 
%s",print_TF(stat ) ) ; 

stat = islinerr (port); printf ("\nNOTE - Is line error? 

%s",print„TF(stat) ) ; 

stat .= ismodemerr (port); printf ("\nNOTE - Is modem error 
checking? %s",print_TF(stat )) ; 

stat = istxintrunning (port); printf ("\nN07E - Are tx interru 

pts 

running? %s",printTF(stat)) ; 

stat = isrxintrunning (port); printf ("\nNOTE - Are rx interop 
ts 

* 

running? %s",print_TF(stat ) ) ; 

stat = isigalert (port); printf ("\nNOTE - Is alert being igno 

red 

? %s“.print IF(stat)); 
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stat = isigcts (port); printf (“\nNOTE - Is CIS being•ignored? 


%s" , print _TF(stat) ) ; 

stat = isigdsr (port ); printf ("\nNOTE - Is DSR being 
ignored? %s",print_TF(stat ) ) ; 

stat = isigcd (port ); printf (“\nNOTE - Is CD being ignored 
%s",print_TF(stat)) ; 

stat = isigmstat (port ); printf (“\nNOTE - Are modem status 
changes being ingored? %s",print_TF(stat)); 

stat = isiglstat (port ); printf (”\nNOTE - Are receiver error 
s 

being ingnored? %s“,print_TF(stat ) ) ; 

stat = isoverrun (port,DIRECT); printf ("\nNOTE - Has a Receiv 
er 

overrun Error occured? %s",print_TF(stat)); 

stat = isparityerr (port,DIRECT); printf (“\nNOTE - Has a 
Parity error occured? %s",print_TF(stat ) ); 

stat = isframerr (port,DIRECT); printf (“\nNOTE — Has a Framin 


g 


error occured? %s",print_TF(stat ) ) ; 

stat = isbreak (port,DIRECT); printf ("\nNOTE - Has a 
Break signal been received? %s",print_TF(stat)); 

stat = isxoffb'locked (port); printf ("\nNOTE - 
Transmitter blocked due to XOFF? %s“,print_TF(stat)); 

stat = isctsblocked (port); printf ("\nNOTE - Transmitter 
blocked due to CTS not asserted? %s“ , print_.TF(stat) ) ; 

stat = is_connected_CDC (port); printf ("\nConnect Status 
- State of Carrier Detect, (is_connected_CDC to host) ? %s",print_TF(st 
at));- 

printf ("\n\n" ) ; . - 




do_time () 

{ 

Lock(); 

if ((TIME = clock()) == (clock_t)-1){ 

program_error = -27; 
responsecode = -27; 
set_error (-27); 

Unlock(); 

return (-27); 


if (TIME/CLKTCK > MAX_TI ME ) { 
program_error = -26; 
responsecode = -26; 
set_error (-26); 

Unlock(); 
return (-26); 

} 

Un1ock(); 



} 



delay (0); 

if (trans_code[0] == '\0’) strcpy (tnans_code,“ . “); 

CREDI T_PQR'T = port ; 
aut h_wt = wt; 
use (authwt); 

_setcursortype (_NOCURSOR); 

sprintf (s,"Credit Card Authorization (%d)",CREDIT_P0RT + 1 ) 
settitle (auth_wt,s,CenterUpperTit1e); 
stat = 1 ; 

strcpy (authorization_number,"DECLINED“); 
strcpy (card_number,credit_number); 

nullend (card_number,19); /* put null after last 

character*/ 

strcpy (expr_date;expr); 

sprintf (approval_amt,"%1.2f",appamt ); 

strcpy (siteid,site); 

strcpy (code,trans code) ; 

strcpy (phone_no,phone); 

TIME = 0; 
stat = ca'llcdc 

(card_number , expr_date , approval _amt, code , si teid , phone_no, auth_nurnber ) ; 

use (authwt); 
c 1 rscr(); 

cprintf (" Hanging up phone..."); 
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strcpy (response,cdc_response); 

_setcursortype (_NORMALCURSQR); 

if ( (statl = credit_hang_up (CREOIT_PORT)) < ASSUCCESS) { 

c I rsc r ( ) ; 

cprintf (" asiquit : Interrupt error 

%d“, stat1); 

} 

if (CARD_APPROVED) { 

update_tau_status (4,'9'); 
use (auth_wt); 
clrscr(); 

cprintf (“ APPROVED 

%s”,authorization number); 


field in agreemtnrec*/ 
agreemntrec */ 


/* moveX because null overrights next 
/* this is temporary until we change 


moveX (auth_number,authorization_number,8); 
strcpy (response,cdc_response); 
return TRUE; 


} else 

if ( (stat == 0) && (!CARD_APPROVED) ) { 

use (auth_wt); 
c1rscr ( ) ; 

cprintf (“%s",cdc_response); 
strcpy ( response, cdc respons.e) ; 


return FALSE; 


} else { 

if (response_code == -1) { 

update_tau_status (4,*8’); 

} else { 

update_tau_status (4,'7'); 
use (auth_wt); 
c 1 rscr() ; 

cprintf (“Error: %s, cdc_response ) ; 
strcpy (response,cdc_response); 
return FALSE; 


“ 7 / 
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nu11_end (char 

{ 

int i , j ; 

for (i 


*s ,int 1 ) 


s[j+1] 


0;i<l ;i++) 
if ( (s [1 ] 

J 

= ’\0’ ; 


I = 1 

* 

* 

i ; 


} 


’> && C^Li3 != 1 \o 1 ) ) 


int get_credit (float appamt, 


{ 

int stat,stat 1 ; 
chan amount[20] ; 
char s [80] ; 


wintype wt, 
char *credit _number, 
char ^expr, 
char *site, 
char *phone, 
char *trans_code, 
char ^response, 
char *auth_number, 
int port ) 


e) 


CC0PY1T.C 


/* ---_ 

MODULE: ccopyit 

Description: To a file from hard disk to floppy; requiring that 
the floppy disk be present 

Entry Function: main 
Exit Function: main 


Written By : Greg McGregor 
Revisions: 

GMM 9-6-1991 copies to b: drive now instead of a: 



/* includes */ 


ftinclude 
ftinc1ude 
ft include 
fti nc1ude 
ftinclude 


<stdio.h> 
<stdlib.h> 
<conio.h> 
<io.h> 
<bios.h> 


ftinclude <windows.h> /* my windows package */ 


ftdefine FALSE 0 
ttdefine TRUE 1 

wi.ndef info_win 
AME, 

win type info wt 


={10,10,70,13,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFR 


White,Red}; 


/* - 

* 

* Procedure Name: main 

* Parameters: 

* Function: 

* Returns: 
x 

* Written By: Greg McGregor 


-*/ 

void main (int argc,char *argv[]) 

{ 

char command[80]; 


if (argc != 2) { 

c 1 rscr (); 
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printf ("\n\nccopyit VI.01"); 
printf (“\nUSAGE> ccopyit <source>" ); 

printf ("\n\nccopyit: Copies the source file onto drive b:“); 
printf ("\n\n\nGMM 1991“); 
exit (0); 
else { 

while (!check_for destination disk ()) { 

infowt = windowopen (&info_win); 

settit'le ( inf o_wt , " ERROR" , CenterUpperTi t le) ; 

use (infowt); 

c1rscr ( ) ; 

cprintf (" Please Place insert a floppy disk!" 


gotoxy (1,2); 
cprintf (“ 


Press <ESC> Key"); 


getch (); 
windowc1ose 


(info_wt); 


sprintf (commandcopy %s b:\%s 
system (command); 
exit (0 ) ; 


> out" ,argv[1],argv[1)); 


/*■ 


* Procedure Name; check_for 

* Parameters: 

* Function; 

* Returns; True, FALSE 

* 

* Written By; Greg McGregor 


destination disk 


_*/ 

int check ...for dest i nat i on_di sk () { 

int stat; 

char buff [’204 8]; 

stat = biosdisk (2, 1,0 , 1 , 1,1,buff); 
if (stat == 0) return TRUE; 
stat = biosdisk (2,1,0,1,1,1,buff); 
if (stat =- 0) return TRUE; 
return FALSE; 

} 
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/* 


MODULE: cardrdr.c works with MA6TEK card readers 

Credit card reader source file. 

MAGTEK 

Written By : Greg McGregor 

REVISION: What was revised? 

- GMM 7-30-1991 Nothing 


- */ 

#include <stdio.h> 

#include <string.h> 

#include <gkeys.h> 

#include <time.h> 

#include <windows.h> 

#include <misc.h> 

int tracks_read = 0; 
int MAXJTRACKS = 2; 

int READER TIME OUT = 10; /* time out'*/ 


/* 

// 

// get_reader_char 

// 

*/ 

.int get_reader_char (wintype wt) { 
clock_t start,current; 
int x,y,osc =0; 

x = wherex () ; 

++x; 

y = whorey (); 
start = clock (); 
current = clock () ; 

while ( (Ikbhit ()) && ( (current-start)/CLK_TCK < 

READER_TIME_OUT) ) { 

current = clock (}; 
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} 

if ( (current-start) /CI,K_TCK >= READER_TIME_OUT) return ( OxFFFF 

) ; 

return ( (int)getch () ); 

} 


int read_in_card (char *card_number, 

char *card_name, 
char *card_expr, 
char *card_type) { 

int i; 
char c ; 
int c.i; 

char tmp[255]; 

char track[4][255]; /* allows up to 4 tracks, 255 char long to be 

read */ 

wintype walt_wt; 

wait_wt = wait_window (" * Reading Creditcard Information *") 
tracks_rcad =0; 

while (tracks_read < MAX_TRACKS){ 

*track[tracks_read+l] = NULL; /* 13 return */ 
while ( ci = get reader char (wait wt) ) { 


which is the first*/ 
They can exit */ 
ESCAPE */ 


} 


if ( ci == OxFFFF ) ( 

windowclose (wait_wt) ; 
return ( FALSE ); 

} 

c = (char)ci; 

strCHcat (track[tracks_read+l],c); 

/* if user mistakenly hits a 

/* char used by the card read 

/* by typing a RETURN or an 

if ((c == OxOD) || (c == OxlB)) { 

windowclose (wait_wt); 
return ( FALSE ); 

} 
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} 


++tracks_read; 

} 

ci = get_readcr_char (wait_wt); 

windowclose (wait_wt); 

if-( ci == OxFFFF ) return (FALSE ); 

/* get the return, dec 13, at end of string */ 

strcpy (tmp,track(1]); 

extract_account (track(2],card_number,card_type); 

extract_name (tmp,card_name); 

format_name (card_name); 

extract_expr (track[2],card_expr); 

return ( TRUE ); 


extract_account (t,card_number,card_type) 
char t[]; 

char *card_number; 
char *card_type; 

{ 

int add =0; 
int addl =0; 

*card_number - NULL; 

if (t[add] == '%') add += 2; /* put pointer to start of 

account 

number*/ 

else ++add; /* assume at char after % */ 

while ((card_number[addl++] = t[add++]) != '=') ; /* track 

2 */ 

card_number[—addl] = NULL; /* erase the “ from account n 

umber */ 


switch (card numbcr[0]){ 
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: if (card_number [ 1] == '7') 

slrcpy (card_lype,"AE"); 

8 ' ) 


case 1 3' 


( card_iype,"DC"); /* 


if (card_number[1] 
diners club */ 


case 

'4 ■ 

: slrcpy 

case 

1 5 1 

: slrcpy 

case 

'6' 

: slrcpy 


s trcpy 

break; 

( card_lype,"VI"); 
break; 

( card_type,"MC"); 
break; 

(card_type,"DI"); / 

break; 


case '9' : slrcpy (card_lype, M CB"); 

break; 




exlract_name (1,card_name) 

char t[]; 

char *card_name; 

{ 

int add =0; 
int addl = 0; 


*card_namc = NULL; 

while (t[add++] !='“') ■ /* find slarl of name, field 

perated 

by ‘ */ 

/* end of name end with * also */ 

while ((card_name[addl] = l[add]) !='*'){ 

++addl; 

++add; 

} 

/* left in Ihe “ and the end of the siring */ 

/* for use in formal name*/ 
card_name[++addl] = NULL; 

} 


* discov 


se 


Page 4 


CARDRDR.C 


format_name (char *card_name) 

< 

int add,addl; 


char 



*/ 


tmp(255]; 

add = addl = 0; 

ImptO] = NULL; 

while ((card_name[++add]) != '/') ; 

while ((imp[addl] = card_name[++add]) != ++addl; 

add =0; 

/* add a space between middle initial and last nam 

/* if middle initial doesn't exist a space will be 

/* between first and last name */ 
tmp[addl] = 1 1 ; 

++addl; 

while ((tmp[addl] = card_name[add]) != 1 / 1 ) { 

++addl; 

++add; 

} 

tmp[addl] = NULL; 


cut out Xspaces (tmp); 


} 


strepy (card_name,tmp); 


cut_out_Xspaces (t) 
char t[]; 

{ 

char tmp[50]; 
int add = 0; 
int addl = 0; 

while ((tmp[add] - t[addl]) != ' ') { 

++add; 
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++addl ; 


while (t[addl] =- ' ') ++addl; 

++add; 

while ((imp[add] = i[addl]) != NULL){ 

++add; 

++addl; 

} 

stropy (t,tmp); 


extract_expr (1,card_expr) 

char t[]; 

char *card_expr; 

{ 

int tmp[5] ; 
int add,addl,i; 

add = addl - 0; 

*tmp = NULL; 

while ((t[add] != '=')) ++add; 
for (i=l;i<=4;++i) 

tmp[addl++] = t[++add]; 
tmp[addl] = NULL; 


card_expr[0] 
card_expr[1 ] 
card_expr[2] 
card_cxpr[3] 
card_cxpr[4] 


tmp [ 2 ] ; 
imp [ 3 ] ; 
tmp[0] ; 
tmp[ 1 ] ; 
NULL; 


} 


/* 

» 

main ( ) 

( 

char c; 

while (((c = getch ()) !- '%')); 

read_in_card (); 

printf ("\nGard type : ^s",card_type) 
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printf ("\nName is : 1 %s '",card_name); 

printf ("\nAccount number : 1 %s 1 ",card_numbcr) 

printf ("\nExpr date is: '%s'",card date); 


ARCHIVE.C 



Greg McGregor : November 5 1990 

Archive : VI.0 Switch option Overwrite or Just add 

Archives Version 2.00 & 1.90 + record total 936 

bytes 


Parameters: NONE 
Returns: NONE 
Side Effects : 

- imports data from the file 1 agreemnt 1 - a sequential 

C file into the file 'archive.a 

- Deletes closed agreements from agreemnt. 

- Squashes agreemnt file. 


Notes: If a file exists in the data base agreemnt and also in t 

he 

file agrb the file in the agrb will be overwritten if netdue>0 

MODIFIED: 7-2-1991 to version 3.0+ compatibility 
MODIFIED: 8-10-1991 with new agreement structure GMM 


V 


#include 
#include 
#include 
^include 
#include 
#inc]ude 
#include 
#include 
#include 


<stdio.h> 
<crtio.h> 

<io.h> 

<f cntl.h> 
<alloc.h> 
<sys\stat.h> 
<proc.io> 

<bench.h> 
<agreev3.hi> 


/* file structs and file descriptors 
* agreemnt is defined in agreemnt.hi 

* / 

t 

struct agreemnt_def agrbrec; 
int fd_agrb; 
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ini keypos_agrb[16]; 

char in_yetO[88]; 
char site [80] ; 
int flag; 


/* 

* GLOBAL DEFINES 

* / 

X 

#def j ne FLPS_agrb 82 


#define 
#define 
#define 
#define 
#define 
#define 
#defjne 


IMP0RT_FR0M 

IMP0RT_T0 

HELP_FILE 

SYSTEM 

NEXT_PROGRAM 

TOTALKEYS 

PCHAR 


"agrecmni" 
"archive.agr" 

ii ii 
it it 
ii ii 

3 

i i 


#def ine FI I.El 

#define FSIZE1 

#define FILE2 

#define FSIZE2 


IMPORT_FROM 

sizeof(agreemntrec) 

IMP0RT_T0 

sizeof(agrecmnlrec) 


#define TRUE 1 

#define FALSE 0 


main (argc,argv) 
int argc; 
char *argv[]; 

{ 

int i = TRUE; 

jf (argc != 2) { 

clrscr (); 

prinif ("\nArchive V2.01"); 

prjntf ("\n *- Version 3.0+ Compatible"); 

prinif ("\n\nUSAGE: archive <SWITCH>"); 
prinif ("\n\n\t<SWITCH> - o = overwrite, a = add only"); 
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printf ("\n\nnote: "); 

printf ("\n - Archive imports agreemnt to 

archive.agr! " ) ; 

printf ("\n - Archive Deletes close agreements in 

agreemnt!"); 

printf ("\n - Archive Squashes agreemnt file size! 

printf ( M \n\n\nGMM 1991"); 
exit (0); 

} 

flag = 1; 

.if (argv[ 1 ] [0] == ' a' ) { 

flag = 1; 

. } else 

if (argv[l][0] ==■ 'o') { 

flag = 2; 

} else { 

printf ("\n Illegal Switch!"); 
exit (0); 

} 


init ( ) ; 

strcpy (site,argv[ 1 ] ) ; 

if ((j = import_file ()) == FALSE) import_error (); 
squash_file (); 

} 

squash_file () 

{ 

int fd,fdl; 
char byte; 

system ("copy agreemnt agreemnt.bak > out"); /* in case of squa 
h 

error */ 

fd = open ("agreemnt,0_BINARY | 0_RDWR,S_IREAD|S_IWRITE); 
fdl = open ( "agreemnt .tmp",0_BINARY | 0_TRUNC|0_CREAT,S_IWRITE); 
if ( (fd == -1) || (fdl == -1) ) .{ 

close (fd); 
close (fdl); 
oxit (0); 

) 
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C 

C' 




) 


while (read (fd,&byte,1)) { 

if (byte != { 

write (fdl,Sbyte,1); 

} else { 

byte = ' '; 

while (byte == 1 ') /* squash out deleted reco 


} 

} 

close (fd); 
close (fdl) 


read (fd,Sbyte,1); 


init () { 

#include <\h2\hdr\agreev3.h2> 

} 


jnt open_sequentjal () 

{ 

if ( (fd_agreemnt = open_f ile9 (FII.E1, FSIZE1, UPDATE_MODE, 
keypos_agreemnt, FLDS_agreemnt, agreemnt_fId)) < IOGOOD) 
io_error9(SYSTEM, NEXT_PROGRAM); 

return (IOGOOD); 

) 

jnt dose_sequentiaI () 

{ 

cIose_fiIe9(fd_agrecmnt); 

> 

/* btrieve is temporarily set to sequential until 

we network it, then import will be for btrieve and so will 
all the reports 

* / 

* 

jnt open_btrievc () 

( 
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if ((fd_agrb = open_fi le9 (FILE2, FSIZE2, UPDATE_MODE, keypos_ag 
reemnt, 

FLDS_agreemnt, agreemnt_fId) ) < IOGOOD) 
jo_error9(SYSTEM, NEXT_PROGRAM); 

return (IOGOOD); 

} 


jnt dose_btrieve () 

{ 

c]ose_file9(fd_agrb); 

} 


jnt import_file () 

{ 

int stat; 

jnt keynum,keymatch,kcynumB; 

struct agreemnt_def temprec; /* use to store a copy of the 

record in use */ 

long len; 

int fd; , 

FILE * fp; 


stat = open_sequent.iaI (); 
stat = open_btrieve (); 

se;Iectinx9 ( fd_agreemnt, keynum) ; 

stat = reset_file9 (fd_agreemnt,Sagreemntrec); 

if (stat >= 0) 

do ( 

temprec = agreemntrec; 

stat = exactkey9 (fd_agrb,&agreemntrec); /* gets new 

agreemntrec */ 

if (stat != IOGOOD ) ( 

stat = addrec9 (fd_agrb,&agreemntrec); 
if (stat == IOGOOD) { 

if (agreemntrec.netdue != 0) delre 

(fd_agreemnt) ; 

} 

} else ( 
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closed agrecmn */ 


/* use old agreemntrec 


if (temprec.netdue != 0) { /* update only if 



if (agreemntrec.netdue == 0) 

stat = updrec9 (fd_agrb,Stempre 


/* use old agreemntrec */ 

ARCHIVED!",temprec.agreeno); 


if (flag == 2) { 

stat = updrec9 (fd_agrb,Stempre 

if (stat != I0G00D) { 

printf ("%s Not 

} 

} 

if (stat == I0G00D) { 

delrec9 (fd_agreemnt); 

} 



} 

} while ( (stat = nextkey9 (fd_agreemnt,Sagreemntrec)) >= 0); 


stat = close_sequential (); 
stat = close btrieve (); 


} 

import_error() 

{ 

} 
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MODULE: phonstat.e 


Desc ription: 


Entry Function: 
Fxit Function; 


Written By : Greg McGregor 
Revisions; 



# i n c 1 u d e < s t d i o . h > 
^include < wi ndows . h> 

# i n c 1 u d e < rn i s c . h > 


* 

* Procedure Name: dispiay_phone_st at us_message 

* Parameters: 

* Function: 

* Returns: 


* Written By: Greg McGregor 


*/ 


int dis piay_phoneyst at us_ 
char s[80]; 

switch (code) { 

case T 9' : 
sprintf (s,“This 

site" , phone_nurnher ) ; 

e r r 1 r t n ( s ) ; 
return - 1 ; 
case 1 0' : 

sprintf (s ,"7his 


message (char code,char ^phone^number) { 


T phone, %s, is unregistered at this 


T phone, %s, is currently IN" ,phonenumber ) 


) ; 


c ) ; 


errrtn (s); 
re tu rn 0 ; 
case 1 1' : 

s pr i nt f ( s , " 1 hi s 

errrtn (s); 
return 1; 
case * 2 1 : 

s printf (s,"7 his 


Tphone, 


%s , 


is currently OUT",phone^number 


7 phone , %s , was report ed I..0S7 " , phone^numbe 


errrtn 
return 


(& ) ; 


2; 


case '3’ 
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her ) ; 


s p r i n t f (s , 

errrtn (s ) ; 
return 3 ; 


} 

return 1; 


This 7 phone, 



was reported 8ROKEN" ,phone num 
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/* 

* 

// 
/ / 

// 

// 

// 

// 

* f 

// 

/ / 

* 9 

// 

// 
t * 

*/ 

* 


These are pickl ist routines 

P i o k 1 i s t . c 

Written By : Greg McGregor 


ttinc1ude <stdio.h> 

tt i nc i ude <\datawi n\dw . h> 


/* 

t 

// pick payment type 

// 
t * 

*/ 

int pi ck__payrnent_t ype () { 

int return value; 

LIST IT EM *ls ; 

HWND win; 
i n t s t a t; 
c ha r *s ; 

char bucket[80*25*?]; 
int curpos; 


/* 

Any 

*/ 


/* 


*/ 


stat “ get text (0,0,80,25,bucket); 
if (!stat) return ( FALSE ); 

win = vopen (7,40,MARK,REVMARK,EPSINGLE,"After Selection, Press 
Key"); 

vlocate (win,6,20); 


s 


if 

if 

if 


“ ini11ist ( ) ; 

(adtolist (ls,"Cash Payment") < 0) return value = FALSE ; 
(adtolist (Is,“Check Payment") < 0) return_value ~ FALSE ; 
(adtolist (Is, "NO Payment") < 0) returnvaTue - FALSE ; 
listsel (5,5,5,NORML, REVNORML, "Pick List",REVNORML, FRD0U8LE, 

■REVNORML, Is, (int) NULLF); 


vdelete (win , NONE); 
free!ist (1s,0 ) ; 


if (strornp (s , "Cash Pay men t" ) “ 

return value = 1 ; 


= 0) { 
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} els e 

if (strcmp (s, "Check Payment”) =-~*0) { 

return _ value = 2 ; 

} else 

if (strcmp (s, "NO Payment") == 0) { 

return va1ue ™ 3 ; 

) else return va1ue = FALSE; 

stat ” puttext (Q,0,80,25 # bucket); 
if (1stat) return ( FALSE ); 

return ( ret:urn va i ue ) ; 


} 
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s*.« «» * 


MODUL E : pr i nter . c 


PURPOSE 


to print on the p.o.s printer, STAR 


Written By :Greg McGregor 


REVISED: What was revised? 

6 MM 7-30-1991 Nothing 



41 i no 1 ude 
44 i no 1 ude 
44inc1ude 
44 i n c 1 u d e 
44 i n o I u d e 
44 i n c *1 u d e 
44 i nc 1 ude 
44 i n c '1 u d e 
44 i n c 1 u d e 
44 i nc 1 ude 
44 Include 
44 i n c 1 u d e 
44 i n c 1 u d e 
44 i n c 1 u d e 


<stdio,h> 
<st dl i b . h> 
<bi os.h> 
< gkeys.h> 

< t; i me . h> 

< bench,h> 
<proc.io> 

<abase.h> 

< a g r i o , h > 
<real004.h> 
<extnvar.h> 
<ag reev3.h> 
<control.h> 
<taustat.h> 


extern i n t f d r ea 10 04 ; 


44def i ne 

1. PT 

PORT 0 /* 

L P T 1 = 

n 

and 

so on 

, • a 

/* check HIGH BYTE?? */ 






44def i ne 

PRT 

NOT BUSY 

Ox FI 0 


/* 

bit 7 

*/ 

44def i ne 

PRT 

_ACKNOWLEDGE 

0x4 0 


/* 

bit 0 

*/ 

44def i ne 

PRT 

PAPER 

Ox? 0 


/* 

bit; 5 

*/ 

44def i ne 

PRT 

SELECTED 

0 x 1 0 


/* 

4 

bit 4 

*/ 

44def i ne 

PRT 

10 ERROR 

0x0 8 


/* 

bif 3 

*/ 

44def i ne 

PRT 

_TIME_OUT 

0x01 


/* 

bit 0 

*/ 

4 

static 

F I L E 

far *prt_fp 

i 





i nt c u r 

rent 

printer pos 

i t i on ; 

/ :( 

K for 

tab 

use 


int line count ; 


/* 

* Put a null at end of string before any trailing 
*/ 

zap_trai1ing_spaces (char *s) 

{ 

i n t i 


spaces 
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} 


i = nns = 0 : 

whi1e (s [ i ] ) { 

' ) 
i ; 


s[pos 4-1] = •\o 1 ; 


if (s[ij != 1 


no 


S 


4-4-i ; 


print_tab (stop^at ) 
int stop_at; 

{ 

int i ; 

whi ') e ( cu r rent pr i nter pos i t i on <st op at ) { 
++current_ printerposition; 
fprintf (prt fp," "); 

> 

cu r r en t _ pr i n t e r __ pos i t i on “ s t o p _ a t ; 

} 


print_newiine (i ) 
i n t i ; 

{ 

i n t 1 ; 

for ( 1 = 1 ; 'I < = i ; + +1 ) 

fprintf (prt_fp,"\n"); 
current w ppinter_posi t: i on “ 1 ; 
4- + 1 ine count ; 


/****;***:** / 


/* since some of t he fields don 1 1 end with an end-of -s 
character, the fie1d length has to be specified 
print section is used */ 




int print^section (s,i) 
char *s; 


int i ; 

{ 


i nt 'I ; 

current_printer_posit i on + = i; 
for ( 1 =0 ; 1 <i ;++’l ) { 

if (s[i]=~NUI I ) { 

fprintf (prt fp," 

} else fprintf (prt fp,"%c 

} 

I 


, S [ i j ) ; 


string 

Therefore 
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print string ( s ) 
char *s; 

{ 

current_printer_ position += strlen (s); 
f pr i n t f ( prt f p , " %s 11 , s ) ; 

} 


int print_X () 

{ 

fprintf (prt _f p,"X" ) ; 

++current _printer^position ; 

} 


it prints the current agreement that is 
in memory at the time it is called. 


print contract (int program_number,int lost _phone){ 
i n t s t; a t ; 


*/ 


unsigned status; 
unsigned data = 0; 

status = biosprint ( 2 , data , L. PT_PORT ) ; 

if (! (status & PRT^NOT RIISY) && (status &. PRT_PAPER) ) { 

prt error number = -1; 

prt error ^message [ 0 J = ' \ 0 1 ; 

st r cat (prt^error^message, 11 Printer Error - OU T 0 F 

PAPER . “ ) ; 

update taitstatus (2,'5 1 ); 
return; 

} 

if ( ((status & PRT N0T_8USY) ){ 

prt_error_number = -2 ; 

Pr* t _er r or _ message [ 0 1 = ' \ 0 ' ; 

streat (prt error message,"Printer Error — Printer OFF 
or ONLINE button not Pressed. " ) ; 

update_tau_status (2,'5'); 
return; 

} 


if (status 5c PRT IO_ERROR) { 

prt_error number ~ -2. ; 
prt_error message [0] = '\0 1 ; 

streat (prt_error message, "Printer Error - CHECK 

PRINTER."); 

update tau status (2,’$'); 
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} 


return ; 


i f 


PRINTER . *' ) 


} 


(! (status &. PRESELECTED)) { 

prt_error_nu m be r = -3; 
prt_ error message [0] = ’ \ 0 1 ; 

strcat (pnt^error^message,"Printer Error - CHECK 

updat e_tau_status ( 2 , ' 5 ' ) ; 
return; 


if (!( (status & PRESELECTED) && (status & PRT_NOT_BUSY) )){ 

prt_error^number = -4 ; . 
prt^error_message [0] = ’\0 1 ; 

strcat (prt^error^message,"Printer Error — CHECK 

PRINTER."); 

update tau status (^’S 1 ); 


return; 

} 

if ( ( prt f p = fopen ( " L PT V , " wb+" ) ) ===== NULL) { 

prt_error_number = -5; 

prt error message [0] = 1 \0 f ; 

strcat (prt_error_message,"Printer 

WRITING TO PRINTER!”); 

update tau status ( ?. , 1 5 1 ) ; 
return; 

} 

pr t er r or nuinber = 0 ; 

prt error message [0] — 'NO*; 

st rcat: ( prt error message , "Printing Agreement . " ) ; 
print^report (prog ram number, 1 os t phone); 
fclose (prt_fp); 
r e t u r n ; 



Er ror 


ERROR 


print_ time (t) 
char t [] ; 

{ 


f p r i n t f 
f* pr int f 
f p r i n t f 
f P r i n t f 
f p r i n t f 
f p r i n t f 


( pnt w fp, 
(prt_fp, 
( prt f p, 
( p r t _ f p , 
( prt fp ( 
(prt fp, 


) 


%c " 

, t 

[0] ) ; 

%c" 

. t 

[1]); 

: " ) 

* 


%C " 

, t 

[2]); 

%c" 

, t 

[3]); 

%c " 

, t 

[4]); 


prin t _phon e (p) 
char p[j; 

{ 

int i ; 

f pr i n t f ( pr t f p, " ( " ) ; 
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fprintf ( prt fp,"%c" ,p[0] ) ; 
f print f ( prt _fp,“%c ,p[1] ) ; 
fprintf (prt_fp,"%c”,p[2j ) ; 
fprintf (prt_fp,")" ) ; 
fprintf (prt_fp," 11 ) ; 
for ( i =4 ; i-<= 1 1 ;++i ) 

fprintf (prt_fp,"%c" ,p[iJ ) ; 


length ended in NULL 

int g length (s) 
char s [ ] ; 

{ 

int i ; 

i = 0 ; 

whi I e ( (s[i] 
return i; 

> 


or SPACE 
-*/ 


! = ' ' ) && (s [i ] ) ) i++ ; 


/* -- - ' - - -- — 

format phone number : (xxx) xxx-xx.xx etc. . 

char *format_phone_number (char *s ) { 

chap s1[80]; 

/* ( xxx) xxx-xxxx */ 
if (strlen (s) ““ 10) { 


_ t 


} else 


/* 1-xxx-xxx-xxxx */ 
/'* skip 1 in front of 
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} 0 ] s & 


} else 


} else 


Si[8] = 

s[6] ; 


s1[9] = 

t l 


si[10] = 

S[7] ; 


si [11] = 

s [' 8 ] ; 


si [12] = 

s[9] ; 


s 1 ( 1 3 ] = 

s [ 1 0 ] 

* 

i 

si [14] = 

'\0 ' ; 


1 1en ( s ) 

== 11) 

&& 

s1[0] = 

' ( ’ ; 

/* 

si [1] = 

*\0 ' ; 

/* 

Sl[1]' = 

s [ 0 J ; 

/* 

si[2] = 

s [ 1 ] ; 


si[3] - 

s[2] ; 


s1[4] *= 

’ )' ; 


s1[5] = 

T t 

* 

t 


si [6] - 

S [ 3 ] ; 


s 1 [ 7 ] = 

S 14 ] ; 


si[8] = 

s[5] ; 


s1[9] = 

1 — r • 
t 


si [10] = 

s [ 6 ] ; 


si [11] = 

s[7] ; 


si [12] = 

s[8] ; 


si [13] = 

s [ 9 ] ; 


s 1 [ 1 4 ] = 

s[10] 

9 

> 

s1[15] = 

’\0’ ; 


•Ten (s) 

== 12) 

&& 

s1[0] = 

1 ( 1 ; 

/* 

s1[1] = 

' \ 0 • ; 

/* 

s1[1] =■ 

s [ 1 J ; 

/* 

s1_[2] = 

s [ 2 ] i 


si [3 J ~ 

S [ 3 J ; 


si [4] = 



si [5] - 

' * . 

i 


.si[6] = 

s[4] ; 


si [7] - 

s[5] ; 


s1[8] = 

s [ 6 ] ; 


si [9] = 

1 1 

• w * 

t 


s 1 [ 1 0 ] = 

S [7] ; 


si [11] - 

s[8] ; 


s 1 [ 1 2 ] = 

s [ 9 ] ; 


si [13] = 

s [ 1 0 ] 

• 

* 

si [14] - 

s [ 1 1 ] 

9 

si [15] = 

'\0' ; 


len (s) = 

~ 7) { 


strncpy 

(si , s , 

3) ; 

s 1 [ 3 ] = 

f _ t 

t 


s 1 [ 4 ] ~ 

s [ 3 ] ; 


si[5] = 

S [ 4 J ; 


si [6] = 

s[5] ; 


si [7] - 

s [ R ] ; 


si [8] = 

’\0’ ; 



(s[K)'J == '*' ) ){ 


*/ 


*/ 


(sill] == ’*’) ){ 


roamer with a 1 in front */ 

1 in front of call skip it*/ 
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} 

/*• 


} else 

if ((strlen (s) = ~ 8) && (s[7j 


_i 


* 


' ) ) { 


strncpy (s1,s 
si[3] = ; 


si [4J 
s 1 [ 5 3 
si [83 

si [7] 
s 1 [ 8 3 
si [93 


s [ 3 3 ; 
s [43 ; 
s [ 5 3 ; 
s[63 ; 

S [ 7 ] ; 

*\0 ’ ; 


} else { 

} 

return s 1 ; 


3) ; 


/* XXX-XXXX* 'local roamer */ 


strcpy (si,s); 


add_ uP _ t o t a 1 _ m inutes 


* / 
t 

f 1 oat add up_tota 1 __mi nut es (gbaserec rec ) { 
int i ; 

f1 oat total ; 
record^type *call ; 

t 

total = 0; 
i “ 1 ; 

if (rec.attached_records “™ 0) 

return 0; 

while (i <= rec.attached records) { 

call * g_g©t_call (rec, i) ; 
total += ca11->1ength; 

++i ; 

} 

return total; 

} 


print report(int program number, int lost phone) 

{ 

f1 oat temp; 

float 1 on g _dist,access_chg s; 
i n t i ; 

record type *a call_rec; 
c ha r s[8 0] ; 

cur rent __pr inter __pos i t i on = 1 ; 

1ire-count = 0; 

print_newline(1 ) ; 

Print_string ("\xOB\x1B\x 34" ) ; 
print string (" TELEMAC"); 


/* Bold Red */ 
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pr int_newl i ne( 1 ) ; 

print st ring (" CELLULAR"); 

p r i n t _ n e w 1ine(1); 

print”string (" CORPORATION"); 

print_string ("\x14\x18\x35"); /* norma) Black */ 
print ji(?.w I ine(2) ; 

print^string (” Cellular Phone Rental"); 

print_newl *ine( 1 ) ; 

print ..string ( " -"); 

pr int _newl ine( 1 ) ; 
if (program number = - 1) 

print_string (" ** Opening Agreement **"); 

if (program number 2) 

print string ('* ** Ending Agreement **" ); 

if (program_number ~ = 0) 

print string ( " ** Updated Agreement **"); 

pr i nt_newline(2); 
print string ("Agency : "); 

print _section (controlrec.1ocation _name,28); 

print_newline(1); 

print ^.string ("TAU id r " ) ; 

print_ section (controlrec,tau id,4 ) ; 

print_newline (1); 

print_string ("Phone Number : "); 

print.section (controlrec,voice_phone_num,12); 

print.newline (2); 

printstring ("Payment Type : "); 

if (strncmp (agreemntrec.c redi11ype, "AE" ,2 ) ==0 ) print st ring 
("American Express"); 

if (strncmp (agreemntrec.c redit type, "VI" ,2 ) = = 0 ) print.string 
( "Visa"); 

if (strncmp (agreemntrec.credittype,"MC",2) print^string 
( "Master Card"); 

if (strncmp (agreemnt rec,c redittype, "CB" ,2 ) = = 0 ) print string 
( "Carte Blanche"); 

if (st rncmp (agreemntrec.c redit type, "DC ,2 ) "= 0 ) print st ring 
( "Diners Club"); 

if (st rncmp (agreemntrec.credittype, "DJ" ,2 ) 0 ) print^string 

("Discover Card"); 

if (strncmp (agreemntrec.credittype, "CA",2 )~~0 ) print_string 
( "CASH"); 

if (strncmp (agreemntrec.credittype, "CK" ,2 )””0 ) print string 
( "CHECK"); 

if (st rncmp (ag reemnt rec.c redittype, "NO" ,2 ) ==0 ) print.string 
("NONE"); 

print.newline (1); 

pr i nt.string("Number : "); 

print.section(agreemnt rec.creditno, 19); 

pr int _newline(1); 

print string("Expires : " ) ; 

pr i nt _st r 1 ng ( f rnt _da te( ag reemnt rec .expi redate , " MM/DD/YY" ) ) ; 

P rint_newline(1); 

print ^string (“Approval Code : " ); 

print section (agreemnt rec.approved,8 ) ; 
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print _newiins(?); 

print_string ("Agreement Number : "); 

print_string ( " \?<1 8\x45 " ) ; /* Emphasized */ 

print_section(agreemntrec.agreeno, 13); 
p r i n t s t; ring ( " \x 1 8\ >< 4 6 " ) ; 
pri nt new'l ine( 1 ) ; 

print^string (“Phone Number : "); 

print_string ("\x1R\x34“); /* red */ 

print_phone(agreemntrec.curphoneno) ; 
print_st ring ( " \x 1 8\>?3 5 “); 
pr int__newline( 1 ) ; 

print_string (“ Rental Date : *' ); ( n . 

print st r ing ( frn t_ date ( ag reemnt rec . rent a 1 date , "MM/QD/YY )); 


print _new’line (1 ) ; 

print __s t ring ( “ Ren t a 1 r i me ■ ) ; 

pp i nt __st r i ng ( ag reemnt rec . t i meout ) ; 

or int new 1ine ( 1 ) ; 

* 

if (program_number =: ” 2) { 

p r i n t string ( 11 R e t u r n Date ■ ) ; 

print_st ring(fmt _date(agreemnt rec 
printnewline (1); 

print string ("Returned Time: “ ) ; 
print string (agreemntrec.timein) 


.actrtndate, 


* 


i 

print_newiine (1); 

print_string ("Rented By : “ ) ; 

print str i ng(agreemntrec.origperson); 
if (program_number --=?){ 

print string (" Returned Tn : “); 

print string (agreemntrec.preparedby) ; 


MM/DD/YY" )) 


/* 

*/ 

9 

/* 



} 

pr i nt_newIine(2 ) ; 

nrint_s tring (“Customer : " ) ; 

print„newiine (1); 

print section(agreemntrec.oustname, 25); 
if (agreemntrec.company[0] ') ( 

print_newiine(1); 

print section(agreemntrec.company, 2 5) ; 

T 

> 

print^newiine(1) ; 

print s ection(ag r eemntrec.cu s t add r1 , 25) ; 

if (a g r eemn t r ec.c u s ta d d r 2 [ 0 ] ! = 1 ) { 

pr' i nt _newi i ne ( 1 ) ; 

print section(ag reemntrec.oust add r 2, 2 5); 

} 


nrint_newiine(1); 

z ap t ra i 1 i ng spaces ( agr*eemnt rec .custcity); 

pr irit_section(agreemntrec.custcity, st r len (agreemnt rec.oustcity)); 
pr' int __str ing ( " , " ) 

print section(ag reemnt rec.custstate, 2 ); 
print^string (" " ) • 


r 
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pr int^sec t i on ( agreemnt rec . custz i pad , 10); 

/* 

if (agreemntrec.busphone[0] !=''){ 

print_newline(1); 
print^string ("Business Phone : 

pr i nt sect i on ( ag reernn t reo . bus phone , g _ 1 enqt h ( ag reemnt rec . busnhon 

e)); 

} 

*/ 


/* 

4 


*/ 


print newline(l); 

print_string ("Home Phone : " ) ; 

printsection(agreemnt rec.homophone, 12); 

printnewline(l); 

print_string ("Drivers Ucense : " ) ; 

print section(agreemntrec.1icenseno, 10); 
print new!ine(3); 

P r i n t Str'ing ^ 11 11 ^ ♦ 

print newline (1); 

print _ string ( " \x 1 B\x4 5 " ) ; /* Emphas i z eci Characters */ 

print~string (" EQUIPMENT RENTED"); 

print_string ("\x1B\x46"); /* Emphasized Characters */ 

print new1ine(1); 

print_string ( " -"); 

print_newline(1); 

printstring ("Phones Rented ; 1" ) ; 

print tah(27); 
if (program_nuinber =“ 2) { 

if (lost phone) { 

print string ("Returned : 0“ ); 

} else pr i nt _s tr i ng ( " Retu r ned : 1 " ) ; 

} else print_string("Returned : 0 " ) ; 

prin t _n ew1ine(1); 

pr i n t _st. r i ng ( " Batter i es Rented ; "); 

nrint _string(fmt_dbl(agreemntrec.nobatrent,"7 9")); 

print tab (27); 

pr int__str ing( " Returned ; "); 

pr i nt st r i ng ( f mt _db 1 ( agreernnt rec , nobat rtn , "79" ) ) ; 

print newline(1 ) ; 

pr i nt __st r i ng ("Cases Rented : "); 

p P i nt st r i ng ( f mt d bl ( ag r eernnt rec . n ocas rent , "79" ) ) ; 

print _tab (27) ; 

pr i n t _s t r i ng ( " Ret timed : " ) ; 

pr i n t_str i ng ( f mt dbl (ag reernn t rec . nocasr tn , " 7 9 ")); 

P r i n t _ n e w 1 i n e ( 1 ) ; 

print string ("Chargers Rented : " ) ; 

print_string(f mt _dbl(agreernntrec.nochgrent, "79")); 

print_tab (27); 

print string ("Returned ; "); 

print __st r i ng ( f rn t: _d bl ( ag reernn t rec . noc hg rtn , "79")); 

print^new'l i n e ( 2 ) ; 

p r i n t _s t r i ng ( " Phone Cha r g e/M i nu t e : " ) ; 

pr i ntt r i ng (f mt „dbl ( cent, rolrec . c harge _per_mi nute, 


"7,779,99-")); 
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+ Long Distance"); 


Z79 .99 


print ..newline (D: 

print_string ( 

print newline ( 1 ) 5 ... pnpc; /Nii nut e 77q gq 

' . ("Roaming i,.na rg<... . r m n, 

pnnt._str-mg L » db Control rec . rocm.chg.P - _ 

print_string (fmt_cmit- 

(fmt .dblCcont ro I rec . ro a m_chg_r _ 

np .} n f nfiwl ine( 1 ) I , «/rv:*w : " ) 7 

P '„/ctrinn ("Phone Charge/Day 
print, string daiiy_nhg; 

temp * contro rec P - 

1f (program.number — ^ (f( *_ db l 

° 1) I. (P- S ra..nu m ben - •> > < 

If (agreemntrec.discount > ogreemntrso .discount a 00)^ 

temp ~ (temp ( ^ n (f m t dblC^emp, ^ ' A */ 

print .string t, , VpisCOUNT ) i 

("Xx16Xx 35 -) : 

>' el : int S fringCfmr.dbHremP, '7 , 77 S . 99-" ) ) . 

ha c; been overidden to . 
/* MfiTF the variable costta, “ . */ 

/* N0TE ■ on t l DW charges, per day / 

/* t:o represent - 

P rint_new1ine O)- charge/Day •J ' d daily chg, 

PPint - printUring (fmt.dbi (oontro 1 rec . 1 dw_ - 

_ • y 1 ) ( 

if (flgreem ^ ^„, ow Accepted 

pr ‘ m 'T'' t ; String ("LOW Accepted 
} else pr int_.str ing v 

pr int _new 11 ne ( 2 ) , Meter Read i ng : ■ ■" ) > 

print.string ( In**'*' 

print_newlme ( ..ggg»)); 

. bour,our , - . 

print”string(ffct^dthHagreemntree tninutesout, 99 )) - 

nrint”newiine (?): 


H 


It 


7 7 9.9 9 



- 11 ) i 

[NO]"); 


> 


print_new’l ine O)^ 

print _st ring (“--- 
print_new1ine (i ) : 




i f 


(program.nu.Bber - = J) < 

print., newline (^ 
print string C 
print.new!ine P. ; 






/CXh 


Page 1 1 

PRINTER.C 


print string ("\ x 1B\x46“); /* Emphasised Characters */ 


print^newline 

( 1 ) ; 


l 

print_string ( 

"Date: 

Time: 

Number:“); 

print^newline 

(1); 



print string ( 

“Length: 

L../D Chn: 

Access Chg:" ) ; 

P r in t _ n ew1ine 

(1); 




print_string ( "-" ); 

print new Iine (1 ) ; 
iong dist ~ 0; 
access_chgs = 0; 


for (i = 1;i< = ca I i r ec.a11acbed records;i+ + ) { 

a callerec = g__g<?-t _oal .1 (caVI rec,i); 

P r i n t _ s t r i n g ( f m t d a t e ( a _ c a 1 1 _ r ec - > d a t e , 

" MM/DD/YY")); 

p r i n t s t r i n g ( " " ) ; 

p r i n t _ s t r i n g ( a c a 1 i __ r ec - > s t a r t t i me ) ; 
p r i n t: _ s t r i n g ( " " ) ; 

print string 

(format_phone_number(a_ca 1l_rec~>number)); 

pr i n t __newl i ne (1); 

nrint^string (fmt dbl (a_ca IT_rec->1ength, "799")) 

i f (s trncmp (a_cal *1 _rec“>number , " ROAMING" , 7 ) --= n ) 

print st ring (" Days"); 

} else print_string (" Mins"); 
print_st ring (" " ) ; 

- pr i nt _st r i ng ( f nit _d bl ( a _ca 1 1 _ rec-> 1 ong _d i st _cost ( 

"7,779,99“")); 


"7,779.99-")); 


print_string (" "); 

p r i n t __s t r i ng ( f m t _d b 1 ( a _ c a 1 1 _ r ec — > base_cos t , 


long dist = long dipt + a 
access_chgs = access chgs 
print newline (V); 


cal 1 _ rec->1ong_dist _cost 
+ a cail rec-> bas e cost; 



print string ( "--" ) ; 

print newline ( 1 ) ; 

pr int~st ring ("TOTAL ACCESS CHARGES : "); 


pr i nt __s t r i ng ( f rnt bl (access chgs, "7,779.99“")); 
print newline (1); 

print”string ("TOTAL LONG DISTANCE CHARGES: "); 
print_string (fmt dbl (long dist, "7 ,779,99-")); 
print new!ine (1); 

print "string ( "-•*---— : -" ) ; 

print newline (2); 


print string ("Days Used : " ) ; 

pr intstr ing(frnt dbl (agreemntrec . daysused , " 99" ) ) ; 

print_newline(1 ) ; 

print_string ("Minutes used : " ) ; 

print_string(fmt_dbl(add up_tota 1 minutes (call_rec),"99999" ) ) ; 
pri nt .new 1 ine(1); 

printt ring ("Days Usage Charge : "); 
pr int tab (90); 
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pr int_string(f mt _dbl(ag reemnt nee.diyphochg, " 7 , 77 9.99-" ) ) ; 

if (agreemntrec.discount > 0 ) { 

print new I ine (1); 
pr i n t _ tab (14); 

print string ("\x1B\x34"); /* red */ 

print string ('* ^DISCOUNTED DAILY RENTAL’ 1 ); 
print string ("\x18\x35“); /*"red */ 

} 

if (agreemntrec.discount != 0.0) { 

print new!ine(1); 

print string ("Discount : "); 

pr i nt _ t ab (3 3 ) ; 

if (agreemntrec .discount >. 0 ) { 


print_string ("%"); 


print^string 

(fmt_dbl(agreemntrec,discount ,"Z99" ) ) ; 

} else print_string ("% 0" ) ; 

} 

print_newline(1 ) ; 

print_string (“Minutes Usage Charge r “); 
print^tab (30); 

pr i nt _st r i ng ( f mt.__d bl ( ag r eernnt rec . mi nphoc hg , “7,779.99™“ ) ) ; 

/* print_new1ine( 1 ) ; 

print string ("Damage Charge : “ ) ; 
pr int_tab (30); 

pr i nt st r i ng ( f mt dbl ( ag reemnt rec . darnagec hg , “7,779.99™“ ) ) ; 

* / 


print new]ine(1); 



pr int string ("Unreturned Equipment Charge: " ) ; 
print:_tab (30); 

print _ st ring(fmtdbl(ag reemnt rec.equipc hg, "7,779.99- 

if (agreemntrec.adjustment I” 0.0) ( 

pr i nt new'l i ne (1); 

print string ("Adjusrnent : "); 

ppint tab (30); 
p r i n t s t r i n g ( " < " ) ; 

pr i n t s t r i ng ( f mt d b 1 ( ag r eemn t r ec . ad j us t men t , 


7 7 9.99™ 



print s t rin g(">"); * 

} 

print_new!ine (1); 
print_string ("LOW Chgs : “ ) ; 

pr 1 nt^.tab ( 3 0 ) ; 

print_string (fmt dbl(agreemnt rec.1dw_ c barges, “ 7,7 7 9 . 99- 

print newline(l); 



) ) ; 


print_string ("Subtotal : " ) ; 

print^tab (30); 

print st ring(fmt_dbl(agreemnt rec.subtot a 1, "7,779.99-")); 

pr intonewline(1); 

print _newline(1); 

print string (“Total Tax: “) ; 

nr int _ tab ( 30 ) ; 

print^string(fmt_dbl(agreemnt rec.tot a 1 t ax, "7,779.99-”)); 


Page 1 3 


PRINTER.0 


nrint new'line(l); _. 

~ . /ii ___ / » 

print_stnng C - 

Pr,n ppintlstr1ng' ("\x-1B\x45“); J* Emphasized Characters */ 

Pri n t ~ s t r i n g ( "\x1B\x46"); /* Emphasized Characters */ 

print"string(fmt^dbi (agreemnt rec . net due, 7 ' J } } 1 

print^new1ine(1): 

print_st ring ("Amount Paid 

pr int _L ab ( 30 ) ; . . " 7 77 QQQ'“ n ii* 

print string (fmt^dbl(agreemntrec.amt paid, /,//..-■ ))> 

pr i nt _new I *i ne( 1 ) ; _ _ _^ . 

print _stri ng (" = —=-==== : == : = 

print _newI i ne (1 ) ; 
print_string ("\x1B\x45"); 

pr int_string ("BALANCE DUE : )* 

p r i n t t a b ( 3 0 ) ; M 7 7 7 q q q - " V) - 

pr i nt _st ring (fmt ..db-T ( agreemnt rec . amt owed , 7. ,7IV. ))> 

pr i nt'string ("\x1B\x46"); 

pr i nt new I ine O ) » __ \ . 

print_string ( " 

print_newiine (3 ) ; 

print string(“Remarks : ); 

print new I ine(1 ) ; . 

print_sect i on ( agreemnt rec . remar ks 1 , <!■>); 

print_new I ine (1); K . 

print "sect ion(agreemntrec.remarks?, «); 

print _.newiine (I); 

print sect i on (agreemnt rec . remarks-3 , -•>) , 

print ..string ("\x1B\x34“); /* red */ 

print”string ( "Customer has read and agreed to the ); 

£^«MnSY-Ur.« and nnndltlnn. a, ...«-d -bnva*>, 

cln« on th. r.«r« did. of this receipt.' 
printlstring (“\x1B\x35"); /* red oft */ 

print newline (?)i 1 ) ■ 

print_string ("______ 

print newiine (1); 

print_string ("Signature: 1 ); 

print_new'l ine (8); 


/* 

* Output blank 
*/ 

p>rt eject ( ) 

{ 

fprintf (prt 

} 


"lines unt i I next page 


fp,"\014"); 



* 0-1 
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MODULE rtbfunc.c 

PURPOSE: This module does the initia 1ization of the phone for the real- 
t i me 

billing event. Upon a return of a phone, the realtime.c MODULE 

performs 

the neccessary actions to return and calculate phone charges. 

T oget her 

these two modules are the realtime billing system. 

Written Oy ; Greg McGregor 1990 


REVISED: 

GMM 7-30-1991 

*/ 

t 


What was revis 
Not hino 


Hindu d e 
H1 n c 1 u d e 
Hind u d e 
HincIude 
Hinc1ude 
Hind ude 
Hinc1ude 
Hind ude 
H1nc1ude 
Hinclude 
Hind ude 
H i n c 1 u d e 
Hinc1ude 


<stdio.h> 
<std1ib.h> 
< gkeys.h> 

<bios.h> 

< t i rne . h> 

<windows.h> 
<gbase.h> 

<bench.h> 

< proc.io> 

< a g r i o . h > 

<agreev 3,h> 
<extnvar.h> 
<extsc rns.h> 


Hinclude <rtb.h> 


/ * r ea1time b i 1 1in g d e f i n i tion s */ 


Hdefine TIMED OUT X 1000 /* 


1 . 04- sec time out */ 


/ 

move_hl: move high nibble to low nibble and set high to 0x00 


*/ 


c ha r 

{ 


move_hl (char nib) 

nib = nib > > 4 ; 
n i b = nib h 0 x 0 F ; 
return nib; 


/* move upper 4 bits to lower 4 bits 
/* set high nibble to 0x00 */ 


*/ 


} 


move_lh: move 1ow nibb1e to high nibb Ie; 

char move_lh (char nib) 

{ 


- */ 


nib “■ nib < < 4 ; 
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nib = nib & OxFO; /*set: low nib to 0 */ 
return nib; 


> 


set rtb nort 




set_rtb_port (int port) 

{ 

RTB PORT = port; 

r 9 ♦ 

} 

r t b_nu 11 f i e'l d ; put nulls in every byte in field 


* 


/ 


rtb nul1_field 

{ 

i n t i ; 

for (i 


(char *f,int 1en) 


— — — — ————— ———— — — — — — — ™——•— —— ^ ^ 


0 ; i < 1en ; i + + ) { 
f[i] - '\0'; 


} 


} 


to_digit: converts a 

to_digit (char nurn) 

{ 

char zero = 1 0 1 ; 

c har n1 ; 


number 0-9 to a char 0-9 




nl “ num; 

if (num =™■ OxOA) return 1 O' ; 
num * num + zero; 
if (nl 0x08) num - ' * ' ; 

if (nl == 0x00) nurn = ’ # 1 ; 
return num; 


} 


open _rtb_port 


/* numbers in BO0 format * / 


int open_rtb_port() /* 

{ 

bioscom (0, SETT INGS, 
return (1); 

I 

/*- 


INOOMPLETF */ 


RTB PORT); 


*/ 


rtb_error: display r t b error 
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rtb_.error (int e) 

{ 

wintype win; 
char msg[80]; 


switch (e) { 

case 0 ; strcpy 

break; 

case -1 : strcpy 


(msg,"ERROR 0 : General f : a i 1 ure ! “ ) ; 

V s# * 

(msg, "ERROR 1 ; Database Files Not. 


Found! " ) ; 


break; 

case -2 : strcpy (msg,"ERROR 2 ; 

brea k; 

case -3 : strcpy (msg,"ERROR 3 t 

break; 

case -4 r strcpy (msg,"ERROR 4 : 

break; 

case -5 ; strcpy (msg,"ERROR 5 ; 

break. ; 

case -6 : strcpy (msg, "ERROR 6 : 

brea k; 

case -7 ; strcpy (msg,"ERROR 7 : 

break; 

case -8 : strcpy (msg,"ERROR 8 ; 

brea k; 

case -9 ; strcpy (msg,"ERROR 9 : 

Phone Number!"); 

brea k; 

case -10t strcpy (msg,"ERROR 10: 
Information From Phone!"); 


Counter!"); 


Couldn’t Open RTB Port!" ) ; 
Data Download Error!"); 
Data Parsing Error!"); 
Communication Error!“); 
•State Transition Error!"); 
No Phone Jn CTI!"); 

Can't Unlock Phone!"); 
Can't Oet Cellular Phones 


Can't Get Clock 


Clock Chip!"); 


Ca11s!"); 


Counter!") ; 


c a s e 

brea k; 
-11: st rcpy 

(msg, 

" ERROR 

1 1 : 

Can 1 t 

Ret rieve Ca1 1 

case 

brea k; 
-12: strcpy 

(msg , 

" ERROR 

1 2 : 

Can ’ t 

End CTI 

♦ 

* 

e a s e 

"); 

case 

brea k; 
-13: strcpy 

(msg , 

" ERROR 

1 3 : 

Can ’ t 

Reset Phone’s 

brea k; 
-14: st rcpy 

(msg , 

"ERROR 

14 : 

Can ’ t 

Reset Phone Meter 

case 

break; 

-15: strcpy 

(msg, 

"ERROR 

1 5 : 

Can ’ t 

Set/Get Phone 1 s 

case 

b r eak ; 
-IB: strcpy 

(msg , 

"ERROR 

1 6 : 

Can ' t 

Get Number Of 

case 

brea k; 
-17: st repy 

(msg , 

"ERROR 

1 7 : 

Can ’ t 

Reset Ca 1 1 

case 

break; 
-IB: st rcpy 

(msg , 

"ERROR 

1 8 : 

Can ’ t 

Lock Phone!"); 

case 

break; 
-19: strcpy 

(msg , 

"ERROR 

1 9 : 

Cou ldn * t Power Down 
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f: 


Phone!"); 

break; 

case -20: st ropy (msg, “FRR0R 2 0 : Can 1 t Get Phone’s Memory 

Pointer! " ) ; 

break; 

case -21: st ropy (msg,"FRROR 21 : Phone Not Rented Out!"); 

hreak; 

case -22: strcpy (msg, "ERROR 22: Genera l Failure! 11 ); 

break; 

case -23: strcpy (msg/ 1 FRROR 23: This Phone Has Not been 
Logged In At This Site!"); 

brea k; 

case -24: strcpy (msg, " FRROR 2.4: Could NOT get meter 
reading from phone!"); 

break; 

case “25: strcpy (msg,"FRROR 25: Damaged Phone!"); 

break; 

case -26: st rc py (msg, "FRROR 2 6: Operat or Aborted!"); 

break; 

case -27: strcpy (msg,"FRROR 27: Command Failed!"); 

brea k; 

case -20: strcpy (msg,"FRROR 20: Transfer Timeout!"); 

break; 

case -29: strcpy (msg,"FRROR 29: Lost Phone!");- 
break; 

} 

strcpy (errmessage,msg); : 

errrtn(errmessage); 

} 

y ^_ _ ____ _ ___________ _ ____ 


wait command 


/ 

i 

wait_command () 

{ 

d e 1 a y ( 10 0 0 ) ; /*-wait 1 0 0 0 mi I 1iseconds 

} 


bet ween commands *\/ 


/* - - - 

wait_byte :wait time to send a byte 


** ■ 


-*/ 

wait_byte () 

{ 


delay (75); /* wait 50 milliseconds between data bytes send */ 


} 


/*_ 


wait error 


wait time for error 
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waiterror () { 

delay (1000); 
flush port (); 

} 




w 


ait receive : wait time to receive byte, delay 


-*/ 

wait receive ( ) 

{ 

delay (1); /* delay 1 milliseconds */ 

} 


f 1 us h__port 


wait and retrieve all data coming, time out after 1 sec 

clears any data hanging around the port 


-*/ 

4 

flush port () 

{ 

int i,t,stat,in; 

t ” n ■ 

while (t<T J.MED OUT X) { /* wait ~ 1 sec and time__out */ 

stat = bioscom (3,0,RTB PORT); 
if (stat & DAT A READY) { 

in = bioscom (2, 0, RTB_P0RT); 

t = 0 ; 

} else { 

waitreceive (); 

+ +1 ; 

} 

} /* timed out no data left, coming */ 

} 


*/ 


shift_left : shift s left 1 length 1 put null in 1 

shift left (char *s,int V) 

{ 

i n t i ; 

for (i«1;i<1;i++) 

s [ 1 -1 J = s [ i j ; 
sfl-1] = ’ \0 * ; 


} 
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y ^______ 

r 

convert_to_phone_time 
ARGS: struct tm a time 




con ver t __to p honest i me 

{ 

i n t i ; 

char data [10] ; 
unsigned char ch,ch?; 
time_t timer; 
struct tm *tblock; 


(unsigned char converted[J) 


timer “ time ( NU I. L ) ; 
tblock - localtime (&timer); 

data[0] - 0; /* set ,1 and .01 sec to .01 */ 

/* convert seconds to BCD format */ 
ch ~ (char ) (tblock->tmsec / 10); /* 10 secs */ 

ch ” move Ih (ch); /* shift low nib to high nib */ 

ch ~ ch | ( (tblock~>tm sec) - ((tblock->tm sec / 10)* 10 ) )* 

d a t a[1] ~ ch; 

/* convert minutes */ 

ch ” (char ) (tb1ock->tm_min / 10); /* get 10's place in mins */ 

ch = moveJh (ch); /* truncates I's place */ 

ch “ ch | ( ( t hi oc k~> tm_rni n ) - ( ( t bl ock-> tm_rni n / 10) * 10) ); 

d a t a [ 2 ] = ch; 

/* convert hours.; set as 12 hour mode */ 
if (t bl ock”>trn hour < 12) { /* 0 to 11am */ 

ch ” 0; /* set all bits to 0 */ 
ch “ (char ) tblook—>tm_hour; 
if (ch == 0) { 

ch = 12; /* for 12 AM */ 

thlock~>tm hour = 12; 

} 

data[ 3 ] = c h ; 

} else 

if (tblock">tm hour < 24) { 

c h ” 0 ; 

ch = (char ) t b1ock->tm hour; 
if (ch != 12) { 

- 12; /* corwert back to 12 hour */ 


c h = c h 


} e 1 s e { 


ch - 12 

} 

c h ™ c h | R .1 T 0 ; 
da t a[3 ] = ch; 


/* set pm bit on */ 


} 

/* turn on 12 hour mode */ 
data [3] = data [3] | BT.Tfl; /* 1 bled 1 - 0 */ 

/* convert day of week */ 

ch ™ (char ) (thiock->tm_wdey + 1); /* Sunday = 0 so bump by 1 */ 
data [ 4 ] = ch; 

data [4] = data[4] | BITS; /* Turn on reset bit */ 
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d a t a [ 4 ] = d a t a [ 4 J & () x 0 F ; / * T urn off bit 6 oscillator bit * / 

/* convert day of month */ 
ch “ (char ) (tblock“>tm_mday / 10); 

ch = move_Ih (ch); /* move tens to upper nibble */ 

ch - ch | ( (t bl ock-> tm_mday) - ( (t bl ock-> trn_rnday / 10) * 10) ) ; 

data[5] = ch; 

/* convert mon t h */ 
ch = (char ) (tblook“>tm mon + 1) 
ch = ch / 10; 
ch ” move_lh (ch); 

ch = ch | ( (t bl ock">tin_mon +.1) 

data[6 ] = ch ; 

/ * convert year * / 

ch “ (char ) (tblock-*>tm__year / 10); 
ch ” move^lh (ch); 

ch = ch | ( (t bl ock->tm_year) - ((tblock->tm year / 10) * 10) ); 

d a t a [ 7 ] = c h ; 

moveX (convert ed , data , 8 ) 


; /* month starts at 0 so bump 
- (((tblock->tm mon +1) / 10) * 
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server Fop G'>VN Network 


PURPOSE: 

Waits fop a host to log on and preforms functions. 
Written By; Greg McGregor 1990 


REVISED 


What was revised? 


GMM 7-30-1991 
GMM 0-13-1991 
GMM 0-14-1991 
GMM 0-20-1991 
GMM 9-9-1991 


Nothing 

Started the delete execute.commands on TAU 
Finished Delete and Execute commands on TAU VI,50 
Adjusted version numbers to 1.52 
Won't hang on initializing modem 



H i n c 1 u d e 
ttinclude 
II i n c 1 u d e 
ft i n c i u d e 
ft i n c 1 u d e 
Hinc1ude 
ftinc1ude 
ft i n c i u d e 
ftinc1ude 
ftinc1ude 


<stdio.h> 
<std1ib.h > 
<string.h> 

< process.h> 
<time.h> 

<window.h> 
<mat h.h> 

<f1 oat.h> 
<dos.h> 

<bios.h> 


ft i n d u d e 
ftind ude 
Hind ude 
ftinclude 
ft i nc 1 ude 
fti ncl ude 
Hindu d e 
ftinciude 


<mem.h> 

< f c n 11 . h > 
<sys\stat.h> 

< io . h> 

"asiports.h" 
"xfer.h" 

"ibmkeys.h" 
H gf . h" 


fti n ciude < wi n dows.h > 


ft i n d u d e 
Hinc ’1 u d e 
Hind ude 
ft i n d u d e 


<rnisc . h> 

<time.h> 
<gbase.h> 
<ext nvar,h> 


void status_rout ine (char *m) ; /* loca l commands */ 

void t r a n s f e r _ s t a t u s (X F E R * b .)■ ; 

char calc CRC (char *s,int 1en); 

int get_xchar (); 

int set^answer ( ) ; 

struct t m far * g et_iif e ( ) ; 

void start^server (); 

void end_server (); 

void run server (); 

void hang_up (); 
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void hang upl (); 
i nt is_ ring () ; 
int init modem (); 


/* 

* Window Defs 


*/ 

/ 

windef connrn_win = 

{10,12,70,17,White,Blue,FALSE,FALSE,FALSE,TRUE,S1N6LEFRAME, 

White,81ue}; 

windef wait win = {10,4,70,6,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFR 
AME, 

Whit e,Red}; 

windef statuswin = 

{5,20,75,22,White,B1ue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,81ue}; 


/* 

* Window Types 

*/ 

/ 

wintype comrn wt,wait wt, status wt ,* 


ttdefine FULL 1 
ttdefi ne HALF 0 

ttdefine MODE ASINOUT | BINARY | NORMALRX 
ttdefine RXLEN 1024 
ttdefine TXLEN 1024 


ttdef i ne 
ttdef i ne 
ttdef i ne 
tt d e f i n e 
ttdef i ne 


SECONDS 5 
TRUE 1 
FALSE 0 
ECHO 0 
SPEAKER OFF 


char ACK _CHAR = 0x20; 
char NAK*_ CHAR = 0x21; 
char LOOKOUT - 0x22; 
char SEND COMMAND = 0x23; 


int PORT; 
int BAUD « 2400; 
int PARITY = PJMONE; 
char PHONE_NUMBER [20]; 
int STOP_8ITS = 1; 
int WORDJ..ENGTH = 0; 
int DUPLEX = FULL; 
cha r command_1ist[00]; 
c ha r file n arne [ 8 0 ] ; 


/* Hotels are all at 2400 Baud */ 
/* No Parity */ 

/* phone number to call */ 




in 


Pace 2 


SERVER . 0 


ma i n : 


— * / 

4 

/XXX 

main (int arqo, char *argv[]) 

{ 

int done; 

done = FALSE; 

i n it wi ndows ( ) ; 

o hec k _ a r g s ( a r g c ,a r g v ) ; 

comm wt ~ windowopen (&comm_wi n ) ; 

sett i tie (commit , " GVN Server VI .55" , Gen ter Upper T i 11 e ) ; 
PORT = atoi (argv[1]) - 1 ; 
whi le ( ! done) { 

asiclear (PORT , ASINOLJT ) ; 
open^port ( ) ; 
irrit modem (); 
if (set^answer()) { 

wait „.f or ^commands (); 

} else done = TRUE; 
hang up (); 


***** / 

set_gvn_port 


x/ 


set„gvn_port (int port) 

{ 

PORT = port; 

} 


start server 


vo i d 

{ 


start server ( ) 

comm^wt ~ windowopen ( Tycornrn _wi n ) ; 
sett i 11 e (comm_wtGVN Server VI. 5 5 
clrscr ( ) ; 
gotoxy (15,2); 

cprintf ("GVN Loading -> "); 

text background (S iack); 

gotoxy (30,2); 

cprintf (" ") ; 

gotoxy (30,2); 

open_port ( ) ; 

cprintf ( ,, %c%c" ,219,219) ; 

ini t_rnodem ( ) ; 

cprintf ( 11 % c % c ”,219,219); 

HMSetWaitT1meForCarrier (PORT,30 ) ; 
c printf ("%c%c" ,219,219 ) ; 

HMSetAutoAnswerRingCount (PORT, 1 ) ; 


-*/ 


0en t er U p per T i t 1 e ) ; 





Page 3 


SERVER.C 


cnrintf ("%c%c",219,219); 
wi ndowc I ose C comm_wt) ; 


end server 


void end server () 


-*/ 


r.omm wt = windowopen (&comtn„wi n ) ; 

sett it le (comrn_wt, “WAIT! ", Cent erUpper Title); 

hang _up (); 

wind owe lose (oomm^wt: ) , 


/* 

§ 

y * -i— **• ^ 

9 

end j 

T rr 

voi d 


server 1 

! end server 1 () 


- */ 


nomm wt = windowopen (&comm_win); 

iettitle (oom«.«t,"WAIT!■.Centertlpper ntl.)i 

hang_up1 (); 

windowc lose (comm...wt) ; 


*/ 


is_nng 

int is_ring () 

{ 

return 


- * / 


(iscd (PORT,IMMEDIATE)); 


far run server 




vo i d 

{ 


run server () 


wait wt = windowopen (&wai t._win) ; L , T i t 1 e) ; 

sett i tie ( wa i t wt , " 6VN Network Active , OenlorUpr ...r 

clrscr (); 

taxtcolor (WhltiM-SlInk); Until Host Is Finished!" 

cprintf ( 

textcolor (White); 

coinm_. • „ rV K| Qpnwpp v i 9 5“ , GenterU pper Title) ; 

settitie (comm.wt, PVN oerver vi.-- < 

H MSet Carrier ( PO R T , ON ) ; * / 

MMAnswer (PORT); 

HMSetHookSwitch (PORT,OFFHOOK); 
if (!wait for ..commands ()) ( 
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use (wait_wt); 
windowclose (wait wt) ; 
use ( cornm__ w t ) ; 
windowciose (comm wt); 


/ ____ _ ___ 

* 

set answer 




set answer () 


/ 

i nt 

{ 

int count; 
char ch; 


* 


use (comm wt); 
clrscr (); 

cprintf(" Waiting For TELEMAC Host Connect!"); 

HMSet EsoapeCode (PORT # ESC); 

HMSetWait TimeEorCa mier (PORT,30); 

while ( MMGet I ncorn i ng Ri noCoun t (PORT) < 1) { 

if (kbhit ()){ 

ch = getch (); 

if (ch ==-• 0x18) /* an ESC key */ 

return FA LS E; 

> ' 

} 

HMSetOarrier (PORT,ON); 

HHAnswer (PORT); 

HMSetHookSwit c h (PORT,0FFH00K); 
return TRUE; 


} 


/ *- 

connected 


PREDICATE is connected to site 


int connected () 


*/ 


{ 

> 


return iscd (PORT CUMULATIVE); 



recieve command 


char recieve_command (char c) 

{ 

int stat; 
int trys = 0; 



while ( ( (stat = get xchar ()) != c) && (trys < 100) ) { 

4 + t* r ys ; 

send xchar (NAK CHAR); 







rio 
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} 


} 

if (stat =-- c ) { 

send xchar (ACK_CHAR); 

return TRUE; 

> „ 

return FALSE; /* error V 


/* - 

send command 


__ _*/ 


char send_command (char c) 

{ 

i n t s t a t; 
int trys; 

t rys ~ 0; 
send., xchar (c); 

do {" 

stat = get. 
if ( s t a t 
++t rys; 
send.xcha r 
} while ( (stat != 


xchar (); 

: o) cprintf ("%g" ,stat) ; 

( c ) ; 

ACK CHAR) && (trys < 3 0) 


) ; 


if (stat ~~ ACK_CHAR) 

return TRUE; 
return FALSE; 


} 


/ *- 

/ 

wait for cornrnands 


_ */ 


int wait_f or ..commands () 

int stat , a ..command , done , [(.connected , t rys ; 
int idir-? time “ 0; 

int fd,H6ST_l.0CKED„M0DE = FALSE; 

c ha r s[2 0 J ; 

B_connected -■ FALSE; 

done FALSE ; 

trys =0; 

while (!connected ()) ; 

asic1ea r (PORT,AS INOUT); 

whi1e ( ! done) { 

use (comm_wt); 
cTrscr ( ); 

cprintf ("-* Sending Job Request L J )> 

wh^ile ( ! send_command (SFN0_C0MMAND) ) ( 

clrscr (); 

++trys; 
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cprintf ("-* Sending Job Request [%d]",trys); 
if (trys >” 3) return; 

} 

clrscr (); 

cprintf ("-* Waiting For A Command 1 '); 

stat “ get^xchar () ; /* wait for a command */ 

if (stat -= 0) ++idie_time; 

if (stat ~~ 0x02) { /* request for file trasnfer*/ 

c’lrscr ( ) ; 

cprintf (" -* Host Requesting An UPLINK!"); 
send xchar (ACKCHAR); - 

^ i * 

fi1e send( ) ; 

idle time = 0 ; 


} e 1 s e 

if (stat “~ 0x01) { 

c Irscr ( ) ; 

cprintf ("-* Host DOWNLINKING A File"); 
timer (TICKS_PER_5EC0ND); 
send_xchar (ACK CHAR); 
fi1e receive(); 
id!e_time = 0 ; 

} else 

if (stat 0x03) { 

clrscr (); 

cprintf ("-* Host Requested An Archive!"); 
send _xc ha r ( ACK_ CH A R) ; 
archive database (); 
id1e time - 0; 

} e 1 s e 

if (stat ”~ 0x0b ) { 

clrscr (); 

cprintf ( " -* Date/Time Verification, . ."); 
send _xc ha r (ACK _ CHAR); 
date? timeset (); 
idle_tirne ~ 0; 

} else 

i f ( s t a t ” “ 0 x 0 0 ) { 

clrscr (); 

cprintf ("-* Sending Agreement Records To Host") 

send xchar (ACK CHAR); 
send_ag r eeinnt ( ) ; 
idle_time = 0; 

} else 

if (stat 0x09) { 

c1rscr ( ) ; 

cprintf (" — ^ Sending Phone File lo Host ) ; 
send xcha r (ACK_ CH AR); 
send phone (); 
id1time = 0; 

} el se 

if (stat ““ 0x0A) ( 

clrscr ( ) ; 

cprintf ( "-* Host Requesting A Reboot!"); 
send x.char (ACK CHAR) ; 
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reboot (); 

} else 

i f ( s t a t “ “ 0 x 0 R ) { 

c lrscr (); 

c.printf ( "-* Host l ocking Sof tware ! " ) ; 
send xchar (ACK CHAR); 

w 1 r r 

. end_server ( ) ; 
lock software (); 
idle_time - 0; 
done = TRUE; 

HOST LOCKED _M0DE = TRUE; 

} else 

if (stat =” OxOC) { . 

clrscr (); 

cprintf ( " -* Host Requesting Seri a 1 Number!“ ); 
S end_xohar (ACK__CHAR) ; 
send serial number (); 


idle_time “0; 

} else 

if ( s t at ™“ 0 x 0 D) { 

clrscr (); 

cprintf ("-* Receiving Monthly Vitamins!"); 
send __xchar ( ACK CHAR) ; 
put _1 i f e ( ) ; 
i die. t i me = 0 ; 


} else 

if (stat ”” 0x0E) { 

c lrscr ( ) ; 

cprintf ("-* Host Unlocking Software!" ) ; 
send_ xchar (ACK CHAR); 

SYSTEMJ..OCKED = FALSE; 

fd = open ("c:\\'A\, 0 _WR 0 NLY|0_BINARY|0_TRUNG,S. 
_ *i f ; /* reset file flag as unlocked 

write (fd,s,1); 

close ( fd ) ; • 

id! e_t i me ■= 0 ; 
done ” TRIJ E ; 


} else 

if(stat= ==: 0x0E){ 

clrscr (); 

cprintf ( 11 — Host Reg u e s t l n g A, File ZAP! ) » 
send_xchar (ACK_CHAR); 
zap„file (); 
i dle_time = 0; 

} e 1 s e 

if (stat ■" = 0x10) { 

clrscr (); 

cprintf (" — ^ Fiost R e q i. testing A Ei le EXEC LITE! ); 

send xchar (ACK CHAR); 
execute_fi1e (); 
idle time ~ 0; 


} else 

if (stat "= 0x11) ( 

c 1 r s c r ( ) ; 


I WRITE) 
*/ 
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cprintf ("-* Host Requesting A Data IOCK!"); 
send_xchar (ACKCHAR); 

ME_LOCK = TRUE; 

} else 

if (stat =~ 0x12) { 

clrscr (); 

cprintf Host Requesting A Data UNLOCK!"); 

send_.xchar (ACK_CHAR); 

ME_I..0CK = FALSE; 

} else 

if (stat == LOG_OUT){ 

gotoxy (1,2); 
cprintf ( 11 1. og out ! “ ) ; 
done = TRUE; 

} else 

send_xchar (NAK CHAR); 


if (id1e_time > 2 0) { 

o prin tf (" Timod ou t!"); 

return; /* no command for 2 1 loops */ 

} 

> 

return HOST_LOCKED MODE; 

} 

get_xchar'; get char from line 

int get_xchar () 

{ 

'int st;at ; 

int trys = 0; 



> 


while ( ( (stat « asigetc (PORT)) < ASSUCCESS) «e«e 

4* +1 rys ; 

> 

if (trys < 10000) return stat; 

return 0; 


(t: rys 



send xohar : send a char 1 down line 


send_xchar (char c) 

{ 

int stat ; 

while ( (stat 



4 


asiputc (PORT,c)) < ASSUCCESS) 


<10 0 0 0 ) 


){ 


} 
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inf get data (char *data) 

{ , 

char bytes,crc,crc1 ; 

int i,j » k, stat,return_va1ue; 
char ternp'L256] .tempi [256] ; 


k = 3; 

while (k) { . . __ n >.. 

while ( (bytes = get k char ()) — u), 

use (comm_wt); 
c I r s c r ( ) I 

cprintf ("-* Bytes Coming %d ".bytes): 
1=0; 

while (i<bytes-1) { 

temp[ 1 ] = get_.xchar (); 

++i ; 

} 

crc = t emp[i-1J; 

temp[i-1] = '\0': .’ 

crcl = caic.CRC (temp, (bytes - ?)): 

if (crc \~ crcl) { 

return value — FALSE; 

— k ; 

asiputc (PORT , NAK..CHAR) : 
cprintf (“-* Retrying Data 

if (crc == crcl ) { 

k “0 ; 

return value — TRUE; 
asiputc (PORT,ACK_0HAR); 

} 

strncpy (data,temp,byt &s-2 ), 

data[bytes-?J “ 
return return.value; 


" T * 

. • • / » 


/ *- 

ca1c_CRC 

char caic_.CRC (char *s,int len) 

{ 

i n t i , j : 
char crc; 


crc == 0 ; 

i = Ien; 

crc = s[0] ; 

for (j=1;j<i:J ++ ) 

n r ~ crc 

return crc; 


s [ j J ; 


} 
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file_receive () 

{ 

i n t stat; 

stat « YmodemReceive (PORT,st at us routine,NULL,ESC); 
gotoxy ( 1 , 4 ); 

cprintf ("File Transfer Status %d",stat); 

} 


*/ 


send agreemnt 
* 

send agreemnt 

{ 

i nt stat ; 

stat 


*/ 


= YmodemScnd (PORT;"agreemnt.",status routine,NULL,ESC); 


/* - 

4 

send phone 

send phone () 

{ 

inf stat; 

stat 


- */ 


= YmodemSend (PORT,"phone.",status.routine,NULL,ESC); 


/*.. 

/ 

f* 1 1 e send 




file^send () 

{ 

i n t s t a t ; 
char file name 


[ 80 ] ; 


send 


cprintf ("-•* Data Corning..."); 
if (!get_data (fiie_name)) { 

cl rscr' ( ) ; 

cprintf ("-* Couldn't Get File Name From Host"); 

% - 

} else { 

c'lrscr (); 

cprintf ("Host Requested File *%s 1 " ,fi I e_name); 

timer (TICKS„PER_SECOND * 3); /* wait 3 seconds before 

e; r-] p t s ^ / 

s tat = YmodemSend ( PORT , f i I e_name , status_rout i ne , NULL , F 


void status routine (char *m) 
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gotoxy (1,3); 

cprintf (" "); 

gotoxy (1,3); 
cprintf ("%s\n",m); 



reboot: ( ) 


reboot () { 


} 


system 


( M reboot") 




/ 

/ 


send serial number 


send 
i nt 
i nt 


_ser i a 1 number 
fd; 
s t a t ; 


f d 


open 



() { 



erial . dat " , O^WRONLY | 0 T EXT | Q_TRUIMC | 0_CREAT # S_ J. READ | Sd WRITE) ; 

write ( f d , "Not implemented!“,str1en ("Not imp 1emented!“)) 
c1ose (fd); 

stat - YmodemSend (PORT, "seria I .dat" ,status routine,NULL, 




r / / 


look so f tware 

lock software () { 

end server (); 

1 ook_systern ( ) ; 

} 



file^exists 

int f i 1 e _ e x i s t s ( c ha r *s ) 

{ 

FILE *f ; 

f = fopen (s, "r“ ) ; 
if (f == NULL) 

return FALSE; 
fclose (f); 
return TRUE; 


} 
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put_1if e () 

{ 

struct t m *t; 
t i me_ t; t m ; 
i n t f* d ; 


t m ” t i me ( NU I. L ) ; 

t ” local time (&tm); • 

t->tm_yday += 30; /* add one month to life span */ 

if (t->trn yday > 3 6 5) { /* all ow for year change */ 

t->tm _year + +; 

t->tm_yday ” t->tm yday - 365; 

} 

f d “ open ( " Is pan . dat “ , OBI NARY | 0_WR0NLY I 0_0REAT | 0_TRUNC , S_J.WRI TE ) 
if (fd != -1) { 

write (fd,t,sizeof (struct tm)); 

} 

c1ose (fd ) ; 


y ^___ _ ___ _ ______ „ _ 

/ 

get life : return Birthday of software 


*/ 

* 


struct tm life; /* global */ 


struct tm *get_life () 

{ 

int f d ; 


} 


if 

} 

fd 
i f 


( !fi1e exists (“Is 
return NULL; 


pan . dat")) { 


= open ("Ispan.dat 
(fd ===== -i) { 

return NUI..1,. ; 


OB I NARY|0 RDONLY,S_1 READ); 


} 

read ( f d , &1 i f e , s i zeof (struct tm)); 
close (fd); 
return &1ife; 


z a p _ f i 1 e 

zctp_file () { 
int stat; 

char file_narne [80]; 
char command string[255]; 

gotoxy ( 1 , ? ) ; 

cprintf (" -*■ Data Homing. . . " ) ; 
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if (!get_data (file_name)) { 

c 1 rscr (); 

cprintf (" -* Couldn’t Get File Name From Host " ) ; 

} else { 

strcpy (command string,"del "); 
street ( c omma n d _ s t r i n g # f i 1 e _ n a rne ) ; 
system (command string); 

} 

} 



e x e c u t e f i 1 e 


execu te_fi1e ( ) { 

int stat; 

char file name [8 0] ; 


— * / 


} 


gotoxy (1,2); 

cprintf (“-* Data Corning, , , " ) ; 
if (!get data (file name)) { 

clrscr (); 

cprintf ( " —•* Couldn’t Get File Name From Host"); 


} e 1 s e { 
} 


system 


( fi1e name); 


date_t i rne_set () ; set date and time according to host 

/ 

t 

date time_set () 

{ 

struct time t; 
struct date d; 
int stat 1,stat ? ; 
char data[80]; 


use (comm wt ) ; 
cl rscr (); 

c print f ("-* Get ting Time..."); 
s t a 11 = g e t _ d a t a ( d a t a ) ; 

if (stat1) memepy (&t,data,sizeof (struct time)); 
gotoxy (1,2); 

cprintf ("-* Getting Date..."); 
stat? = get_data (data); 

if (stat:?) memepy (&d,data,sizeof (struct date)); 
clrscr (); 

if ( (statl) && (stat2) ) cprintf O''-* Got Date/Time ") 
if ( (statl) & & (stat?) ) { 

settime (& t); 
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setdate ( &d ) ; 
pu t life (); 


} 

return ; 


} 


/*-- 

anch'i ve__da t a base 

arc hi ve__dat^ha^e ( ) 

{ 

system ("archive o"); 

} 


- */ 


/* run archive utiity with overright*/ 


/* 


chec k args 

-*/ 

* 

c hec k_a r’gs 

{ 

if 


} 


} 

/* - 

error 


( i nt: n , c ha r * 1 [ ] ) 

(n != 2) { 

main wt = windowopen (&main_win )• 

settitle ( roa i n _wt, “ How 'SERVER' Works ", CenterUpper T i t1 0 ) ; 
clrscr (); 

printf (“SERVER VI.55“); 
got oxy (1,2); 

printf (" -* Server For GVN Network"); 

gotoxy (.1,4); 

printf ("USAGE: server [PORT]"); 

gotoxy (1,6); 

printf ("\tRequired:"); 

gotoxy (1,7); 

printf ("\t\t[PORT] - 1 .. 

gotoxy (1,10); 
printf ("GMM I 9 P 0" ) ; 
window (1,1,80,25); 
gotoxy (1,24); 
exit (0); 


4 (C0M1 to COM4)"); 


/ 

4 

error (int e) 

{ 

char message [80]; 


spr i nt* f ( message , " ERROR %d " ; e ] ; 
switch (e) { 
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} 

/* 


case 

— 2 

: sprintf 
brea k; 

(message, 

case 

-3 

: sprintf 
break; 

(message, 

case 

-4 

: sprintf 
break; 

(message, 

case 

“ ); 

-3 

; sprintf 

break; 

(message, 

case 

-6 

: sprintf 
brea k; 

(message, 

case 

-7 

: sprintf 
break; 

(message, 

case 

-2 3 

: s p r i n t f 
break ; 

(message 

case 

-22 

: s p r i n t f 
break; 

(message 

case 

-10 0: s p rintf 
break; 

(message 


(message , " Port A t ready Inuse ! %d 11 , e) ; 

( message , " I nva’I i d Buffer - Size! %d " , e) ; 
( message , " Memory AT'location Error In 


} 

errrtn (mess 
hang^up (); 


3) ; 




hang_up 


*/ 

void hanq up () 

{ 

i n t i ; 


use (comm wt); 
clrscr ( ) ; 
gotoxy (15,2); 

cprintf (“GVN UnLoading -> " ) ; 
text background (Black); 
gotoxy (30,2); 
cprintf (" " ) ; 

Lise (comm wt) ; /* resets color etc . . */ 

gotoxy ( 3 0,2); 

textcolor (Red); 

while (listxempty (PORT) ); 

cprintf ("%c%c",219,219); 

timer (T1CKS_PER_SEC0ND * 1); 

c pr i n t f ( " %c %c 11 , 2 1 9,2 1 9 ) ; 

asiputs (PORT,"+++" , -1 ) ; 

cprintf ("%c%c",219,219); 

while (listxempty (PORT) ) ; 

timer (TICKS_PER_SECONO * 2); 

cprintf (‘'%c%c" ,219,219); 

HMSetHookSwitch (PORT,* 0NH00K); 

asiquit (PORT); 

cprintf ( "%c%c" ,219,219); 
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use (comm_wt); 


reset color etc..*/ 


} 


open_port: 

open_port 

{ 

int stat; 


_*/ 


o 


.t.t - assuccess, 0RT , MOnE , rxl«,ixu:n)) < assuccess)< 

> T o a 11 n parity stop bits . word J-ENGTH)) 

} . ,, i i n i t. ( PE1RT , BAUD , PAR.1 I • < - 1 - 

i+ ((stat - a*^ a ^ suc ceSS ) < 

error (?tat ) ; 

s asdtr(PORT,ON)) < ASSUCCESS) 

V ' error (stst); irrFSS ) 

1f ( («tat - «.rt. (PORT,0N)> < ASSUCCESO 

' . ; r ^«:”(PORT,AS)N0UT), < ^SUCCESS) 

if ( (stat - asTsxai ^ 

error (stat); kiiii i T • /* wait 3 secs 

, TTrK e pfr sEO0ND*3,NULL ; , / 

HMWaitEorOK C TIC ^ ? ^ K -' 

HMSetUp Abort Key (Ee.-; . 


} 


if ( (stat 


> 


^ T ^ m y|,f ' 

ni t modern 


- - nerurrsive function 

initialize modern^ Recurr.._ 


_* / 

a _.T_r - / 


i nt 

{ 

i n t 


in it modem () 


stat, i ; 


Centera1"): 


r'i HMReset (PORT); 

( <AS8UCCESS) NN O <- 

*tat = HMReset. (PORT); 
gotoxy (1 > 3); 
hang._up (): 
open _por t( ) ; 

> ' , 
if (i > 3) { 

bang_‘.ip (): 

open _port (); r < n 

while (init modem () ) 

W errrtn ("Cou Idn t 

} return ( TRUE ); 

) 


j at. p^c,p.t modem / 


3) M 


{ 


Reset Modern. Contact 
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<ASSUCCESS) 


error (st;at) ; 

if CECHO^O)^ = HMSetEchoMode (PORT,OFF)) 

•'* set *' error ( E t,t); 

if < ECH0 .“” ( 1 J stat . HMSotCcho«ode (PORT,ON)) <ASSUOCESS) 

error’(etct ) ; AS s UC CCSS) 

•if ( (stat = HMSetVer bos ©Mode tPORl , - W)) 

error (star); 

/* verba I response */ C1 irr roc \ / 

if ( (stat * HMSet Fu 11 Du piexMode (PORT,ON)) 


duplex FULL */ 


set speaker 


*/ 


error (stat); SPFAKFR)) <ASSUCCESS) /* 

if ( (stat « HMSetSpeaker (PORT,oPFA^tx ;t 

error (stat ) ; 


if (i> 3) 

return FALSE ; 


return TRUE; 


} 
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server For GVN Network 


PURPOSE: 

Waits for a host to log on and preforms functions. 
Written By ; Greg McGregor 1990 


REVISED: 


What was revised? 


GMM 7-30-1991 
GMM 8-13-1991 
GMM 8-14-1991 
GMM 8-26-1991 
GMM 9-9-1991 


-*/ 

/ 


Not hino 

Started the delete execute.commands on TAU 
Finished Delete and Execute commands on TAU VI .50 
Adjusted version numbers to 1.52 
Won't hang on initia 1izing modem 


ft i n c 1 u d e 
^include 
ft i n c 1 u d e 
If incl ude 
ft'include 
ft i n c 1 u d e 
ftinc1ude 
If inc 1 ude 
ft i nc 1 ude 
tt i n c 1 u d e 
ft i n c 1 u d e 
If i nc 1 ude 
ft i n c 1 u d e 
ft 'i n c 1 u d 0 
ft incl u d e 
ft incl u d e 
ft i nc 1 ude 
ft i n a 1 u d e 


< s t d i o . h > 

< s t d 1 i b . h > 
<string.h > 

< process.h> 

<time.h> 

<window,h> 
<mat h.h> 

<float.h> 
<dos.h> 

< bios.h> 

<mem.h> 

< f c n t 1 . h > 
<sys\stat.h> 

< i o . h > 

"asiports.h" 
M xfer.h" 

"ibmkeys.h“ 

" gf . h" 


fti nc 1 ude 
ft inc 1 ude 
ft i n c 1 u d e 
ft i n c 1 u d e 
ft i n c 1 u d e 


<windows.h> 
< rn i s c . h > 

<time.h> 

<gbase.h> 
<extnvar.h> 


void status routine (char *m ) ; /* loca l commands */ 

void transfer^status (XFER *b); 

c ha r c a 1 c _C RC ( c ha r *s , i n t 1 en ) ; 

int get xchar (); 

i nt set ^answer ( ) ; 

s t r u c t t rn f a r *g e t 1 i f e ( ) ; 

void start server ( ) ; 

void end_server (') ; 

void run server (); 

void hangup (); 


Page 1 


SERVER.C 


void hang upi ( ) ; 
int ring (); 
int init modem (); 


/* 

* Window Defs 
*/ 

windef oomm win = 


{10,12,70,17,White,Blue,RAISE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Blue}; 

windef wen t__win = {10,4,70,6,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFR 
AME, 

Whi t: e , Red } ; 

windef status_win ~ 

{5,20, 76, 22, White, Blue, FALSE, FALSE, FALSE, TRUE , SI NGL. EPRAME , 

White,Blue}; 


/* 

* Window Types 

*/ 

* 

wintype comm wt,wait wt,status wt; 


ltdefine FULL 1 
ttdefine HALF 0 

^define MODE A3IN0UT|BINARY|NORMALRX 
ttdefine RXI...EN 10 24 
ttdef ine TXLEN 1024 


^define SECONDS 5 
ttdef'ine TRUE 1 
ttdefine FALSE 0 
^define ECHO 0 
ltdef i ne SPEAKER OFF 


char’ ACK_CHAR = 0x20; 
char NAK CHAR = 0x21; 
c h a r I... O G OUT = 0x22; 
char SEND COMMAND = 0x23; 


int PORT; 

int BAUD = 2400; 

int PARITY = P NONE ; 

char PHONE,NUMBER [20]; 

int STOP_BITS = 1; 

int WORD_LEN6TH = 8; 

int DUPLEX = FULL; 
char command,, list [80] ; 
c ha r fi1e n a me [80] • 


/*■ Hotels are all at 2400 Baud */ 
/'■* No Parity */ 

/* phone number to call */ 
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ma i n : 


.-*/ 

* 


main (int ar ac, 

{ 

int: done; 


char* *argv [ J ) 


done “ FALSE; 
init_windows (); 
check_args (argc,argv); 
comm_wt ~ windowopen (&comm_win); 
settit1e (comm wt,"GVN Server VI.55 
PORT ” atoi (argv[1]) - 1; 
whlie ( ! done) { 

as i o Tea r (PORT,AS INOUT ) ; 
open_port ( ) ; 
initjnodern (); 
if (se t _an swe r() ) { 

wait for commands (); 

} else done =•TRUE; 

hang_up (); 

} 

i 

* 

***** / 
t 


set;_gvn_ port 


set_gvr» port (int port) 

{ 

PORT = port; 

} 


CenterUpperTi 11 e ); 


—*/ 


start server 


void start server () 

{ 

comm wt - windowopen (fifcomm^wih); 

sett i tie (cornm wt , 11 6VN Server V1.55 M ,CenterUpperTit1e); 
clrscr (); 
gotoxy (15,?); 

cprintf (" GVN Loading -> "); 

textbackground (Black); 

gotoxy (30,2); 

cprintf (" " ) ; 

gotoxy (30,?); 

open__port ( ) ; 

cprintf ( M %c%e" ,?19,?19) ; 

init modem (); 

cprintf ("Sfecifcc" , 219, 219); 

M MSetWaitTim e F o r C a r rie r (PORT,3 0); 
cprintf ("%c%c" ,?19, ?19) ; 

HMSetAutoAnswerRingCount (PORT,1); 


*/ 
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} 


c pri n t f ( n %c%c" ,2 1 9,219) ; 
wi ridowc 1 ose ( comm it ) ; 


end server 


■*/ 


vo i d 

{ 


} 


end server () 

comm wt = windowoperi (^.comm^win) ; 

setti11e (comm_wt , "WATT! " ,GenterUpperTi11e); 

hang _up (); 

windowclose (commit); 


/* 

/*-- 

/ 

end 


* Mv SO* ' 


server 1 


-*/ 


void end^serverl () 

{ 


} 

*/ 


comm wt ” wi ndowopen (&comm_win); 

sett i tie ( comm__wt , "WAIT ! " ,Cen terU pper Ti11e) ; 

hangpi ( ) ; 

windowc lose (comm wt) ; 


/*- 

* 

is _ring 

i n t i s _ r i n g ( ) 

{ 

return 

} 


-- */ 


(iscd (PORT,IMMEDIATE)); 


far run server 

_ ____ _____. _______________^ j 

/ 

void run _server () 

{ 

wait^wt = windowopen (&wait win); 

settit1e (wait _wt,"GVN Network Active",CenterUpper Ti 11 e); 
cirser (); 

textcolor (White+BIink); 

cprintf (" Please Wait Until Host Is Finished!"); 

t: ex tool or ( Wh i t e ) ; 

comm_wt ~ windowopen (/ycommwi n ) ; 

sett i tie ( comrn_wt , " GVN Server V1 . 55 11 , CenterUpper Ti 11 e) ; 

/* HMSetCarrier (PORT,ON); */ 

HMAnswer (PORT); 

HMSetHookSwitch (PORT,OFFHOQK) ; 
it (!wait tor^commands ()) { 
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} 


use (wait wt); 
windowciose (wait_wt); 
use (comrn w(r ) ; 
windowc1ose (comm wt ) ; 



set answer 


/ 

int set answer () 

{ 

int count; 
char ch ; 


} 


use (comm_wt); 
o1rscr (); 

oprintf(" -* Waiting For TF. I. FMAC Host Connect!"); 
HMSetEscapeCode (PORT,ESC); 

HMSetWa i t T i me For Car r i er (PORT,30); 

while (HMGetIncomingRingCount (PORT) < 1) { 

if(kbhit()){ 

ch = getch () ; 

if (ch “= 0x1 B) /* an ESC key */ 

return FA L S E; 


} 


} 


HMSetCarrier (PORT, ON ) ; 

HMAnswer (PORT); 

HMSetHookSwitch (PORT # 0FFH00K); 
return TRUE; 


connected : PREDICATE is connected to site 

int connected () 

( 

return iscd (PORT,CUMULATWE) ; 

} 


“*/ 


/*- 

4 

recieve command 


char recieve command (char c) 

{ 

int s t a t; 
int try? = 0; 

while ( ( (st;at: = get xrhar ()) != c> &&. (trys < 100) ) { 

1+■ t r y s ; 

send xchar (NAK CHAR); 
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if (stat c ) { 

send xohar (ACK_CHAR); 
return TRUE; 

} 

retu rn EA L SE ; /* error */ 


send_oornmand 

^ / 

c h a r sendeeommand ( c h a r o ) 

{ 

int stat; 
int t rys; 

trys ” 0; 


sendxchar (c) ; 
do { 

stat = get 
if (stat ! 
++trys; 
send _xchar 
} while ( (stat !” 


xohar ( ) ; 

0) oprintf (“%g",stat ) ; 

( C ) ; 

AC K. CHAR) KF. (trys < 30) 


if (stat == ACK CHAR) 

return TRUE; 
return FALSE; 


/*- 

wait for commands 


inf wait for^commands () 

( 

i nt s t: at , a command , done , B connec t ed , trys ; 

int idle time ” 0; 

int f d , HOST J„OCKED__MODE = FALSE; 

char s[20] ; 

Reconnected = FALSE; 
done “ FALSE; 
trys = 0; 

whi le ( !connected ( ) ) ; 

asicl ear (PORT,ASINOUT ) ; 
while (!done) { 

use (comm_wt); 
c lrscr ( ) ; 

c pr i ntf ( " -* Send i ng Job Request [ 'J “ ) ; 
trys ™ 0; 

while (!send_command (SENO_COMMANO) ) { 

c 1 r s c r ( ) ; 

++trys; 


M / 
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cprintf ( "Sending Job Request [%d]" ,trys ) ; * 
if (trys >= 3) return; 

} . •• 
c1rscr (); 

cprintf ("-* Waiting For A Command"); 

stat “ getxohar () ; /* wait for a command */ 

if (stat =” 0) ++idle_time; 

if (stat 0x02) { /* request for fii e trasnfer*/ 

c 1 rscr (); 

cprintf (“-* Host Requesting An UPLINK!"); 
send^xchar (ACK_ CHAR); 
fi1e_send( ) ; 
id 1 e_time = 0 ; 

} else 

if (stat ” 0x01) { 

clrscr (); 

cprintf ("-* Host DOWNLINKING A File"); 
timer ( T I0K3__PER_ SECOND ) ; 
send_xchar (ACK CHAR); 
fi 1 e _ r ec eive(); 
id!e_time = 0 ; 

} else 

if (stat =“ 0x03) { 

c 1 r s cr (); 

cprintf ("-* Host Requested An Archive!"); 
send^xchar (ACK_CHAR); 
archive_database ( ) ; 
idlestime = 0; 

} else 

i f ( s t a t - = 0 x 0 5 ) { 

c 1 rscr(); 

cprintf C"*- Date/Time Verification ..."); 
send_xchar (ACK CHAR); 
date_time _se t (); 
idle time ” 0; 

} else 

if (stat 0x00) { 

c 1 rscr ( ) ;. 

cprintf ("-* Sending Agreement Records To Host"); 
send_xehar (ACK CHAR); 
ser>d_agreemnt ( ) ; 
idle_tirne ~ 0; 

} e 1 s e 

if (stat == 0x09) { 

clrscr' ( ) ; 

cprintf ("-* Sending Phone File To Host"); 
send_ xchar (ACK CHAR); 
send_phone (); 
idle _tirne - 0; 

) else 

if (stat == 0x0A) { 

clrscr ( ) ; 

cprintf ("Host Requesting A Reboot ! "); 
sendxchar (ACK_CHAR); 
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reboot (); 

} else 

if (stat --= 0x0 8) { 

clrscr (); 

cprintf ("~* Host Locking Software!"); 
send^xchar (ACK CHAR) ; 
end server ( ) ; 

1ock^software () ; 
id1e_time = 0 ; 
done = TRUE; 

HOST LOOKED MODE = TRUE; 

} e 1 s e 

if (stat =~ 0x00) { 

clrscr (); 

cprintf ("-* Host Requesting Serial Number!"); 
send_xchar (ACK_CHAR); 
send serial number (); 
i d 1 e _ t i m e - 0 ; 

} els e 

if (stat 0xO0) { 

c1rscr (); 

cprintf ( " —* Receiving Monthly Vitamins!"); 
send_xohar (ACK__CHAR) ; 
put _1 i f e ( ) ; 
idle_time ~ 0; 

} else 

if (stat == OxOE) ( 

clrscr (); 

cprintf ("-* Host Unlocking Software!"); 
sendxchar (ACK OMAR); 

SYSTEM LOOKED = FALSE; 

f d = open ( "c : W\V M - 0_WR0NLY | 0_8J NARY | 0_T RUNG , S„ I WRI TE ) 
s[0] - '1'; /* reset file flag as unlocked */ 

write (f d,s , 1 ) ; 
c1ose (fd ) ; 
idle time -* 0 ; 
done ~ TRUE ; 

} e 1 s e 

if (stat ~~ 0x0F) { 

c Irscr (); 

cprintf ( " --* Host Requesting A File ZAP!"); 
send_xchar (ACK CHAR ) ; 

7 . a p_f i 1 e ( ) ; 
idlestime = 0; 

} else 

i f (s t a t 0x10 ) ( 

clrscr ( ) ; 

cprintf ( "-* Host Requesting A File EXECUTE!."); 
send xohar (ACK CHAR); 
execute_fi1e ( ) ; 
idlest; irne ~ 0 ; 

} else 

if (stat 0x11 ) { 

clrscr' ( ) ; 
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cprintf C"—* Host Requesting A Date LOCK!"); 
send, xchar (ACKCHAR) ; 

ME._LOCK = TRUE;” 

} else 

if (stat == 0x1?) { 

clrscf’ ( ) ; 

cprintf ("-* Host Requesting A Data UNLOCK!"); 
sendxchar (ACKCHAR); 

ME_L0CK. = FALSE; 

} else 

if (stat == l..0G_0UT){ 

gotoxy ( 1 , ? ) ; 
cprintf ("Log out!"); 
done = TRUE;" 

} else 

send xchar (NAK CHAR); 


i f 


(idie_time > 2.0) { 

cprintf (“Timed out!"); 
return; /* no command for 


} 


21. loops */ 


} 


} 

return HOST LOCKED' MODE; 


/*- 

get xchar: get char from line 

int get_xchar () 


-*/ 


{ 

int 

int 


stat ; 
trys = 0; 


while ( * ( ( s t a t -- 

++tr ys; 

> 

if (t:rys < 10000) 
return 0; 


asigetc (PORT)) < ASSUOCESS) (trys <1 0000) ){ 


return stat; 


> 


send xchar : send a char down line 


_ 


/ 


send xchar (char c) 

{ 

int stat; 

while ( (stat ~ asiputc (P0RT,c)) 


< ASSUCCESS) 
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int get_data (char *data) 

{ 

char byteSjCrCjCrd; 
int i , j , k,stat,return_vaIue; 
char temp [25 6 ] ,tempi [ 256 ] ; 


while (k) { 

while ( (bytes -* g 
use (comm_wt); 
clrscr ( ) ; 
cprintf (“-* Bytes 

i = 0; 

while (i<bytes-1) 

ternp[i] - 
++i ; 


get xchar ()) =~ 0) ; 


Coming %d ",bytes); 


get xchar (); 


crc = temp[i-1j ; 
temp[i-1] = ' \ Q 1 ; 

crcl = calc CRC (temp, (bytes - 2)); 

i f (crc !~ crcl) { 

return value = FALSE; 

>* «* r 

If 4 
^ * 

asiputc (PORT,NAK CHAR); 
cprintf ("-* Retrying Data. 

} 

if (crc “ crcl ) { 

k ~0 ; 

return .va lue = T RUf 7 ; 
asiputc (PORT,ACK_CHAR); 

} 


• " ) 


strncpy (data,temp,bytes-?); 
data[bytes-?] = '\0'; 
return return value; 


calc CRC 

char ca lc_CRC (char *s, int Ten) 

{ 

int i,j ; 
char crc; 


c rc 
* 

1 ~ 


= ' 0 ; 
1 en ; 


crc ” s [0] ; 

for ( j = 1 ;j <i ;j + +) 

crc = crc 
return crc; 


s [ j J ; 


/43 
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/*- 

file receive 


-* :/ 


file receive () 

{ 

int stat; 

stat = YmodemReceive (PORT,status routine,NULL, 
gotoxy (1,4); 

cprintf ("FI'I© Transfer Status %d”,stat); 

} 


send _agreernnt 


*/ 


send_agreernn t () 

{ 

i n t s t a t ; 

stat = YmodemSend 
I 


(PORT, agreemnt ." ,st at us_routine,NU L L # ESC) 


send, phone 


-*/ 


send_phone 

{ 

■i n t s tat; 


tat = YmodemSend (PORT,"phone.“,status routine,NULL,ESC); 


/*- 

fi1e_send 

fi1e_send ( ) 

{ 

int st a t ; 
char file name 


- m 


*/ 


[80] ; 


send 


cprintf ("-* Data Coming..."); 
if (!get_data (filename)) { 

c1rscr ( ) ; 

cprintf ("-* Couldn’t Get File Name From Host"); 

} else { 

c1rsc r ( ) ; 

cprintf (“Host Requested File 1 ,file name); 

timer' ( TIC K S _ P E R S E CON 0 * 3 ) ; / * wait 3 s ec on d s before 

starts * / 

stat ” YmodemSend (PORT, file name , st atus_ rout i ne , NO I.. L , E? 

} 


void status routine (char *rn) 

( 






(•Man ^ 1 

'•rf 


} 


PH- 


S6RVFR.C 


gotoxy (1,3); 
cprintf (" 
gotoxy (1,3); 
cprintf ("%s\n",m); 


" ) ; 




/*—■ 
t 

reboot () 


* »*> *+* 


reboot () { 

system ("reboot"); 

> 


* 


/ 


^ ^ ^ ^ ^ ^ ^ ^ ^ 

4 "" "* 

send_seria 1^number 

sends e ria 1_ n umber ( ) { 

in t fd; 
i n t s t a t; 

fd = open 

( " serial , dat" , 0_WR0NLY | 0_TEXT | O^TRUNC | OCREAT , S J. READ | S__I WRITE ) ; 

write ( f d , Not i mp.l emented ! " , st r 1 en ("Not imp! emented ! " ) ) ; 
c1ose (fd); 

stat ~ YmodemSend (PORT,"serial .dat" ,status routine,NULL,ESC); 

} 


y 5f;______ 

1 ock software 

1 ock_software () { 

end_server (); 

1ock_system ( ) ; 

} 


*/ 


file exi st s 


int file_exists (char *s ) 

{ 

FILE *f; 

f - fopen (s,"r" ) ; 
if (f -= NULL) 

return FALSE; 
fc1ose (f) ; 
return TRUE; 

} 


*/ 


put life: re—birth software 
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iu t life O 


cruet tm *t; 
ime,t tm; 
nt f d ; 


tm = time(NULL); 

t = 1 oca 11 i rne ( & t m ) ( . . -uf p c.-.pan * / 

, , q fl . /* add one month to - me -P " / 

t->tm_yday +- dl• '• ./* r -,r»ow for year change */ 

if (t->tm_.yday > \ < 

t->tm_yeer++; 

t-->trn yday - t->trn_yday - 

\d = open ("lspan.dat", 0 _B 1 NARY|0_WRONLY|0_CREAT|0_TRUNC.S 

1f (fd 'write (fd,t ,sizeof (struct tm)); 

> 

close (fd); 


.1 WRITE) 


} 


/* - 


■ n^-ni-hrlflv of software 

get life : return Birthday _ _ 


*/ 


struct tm life; /* g^bal */ 


struct tm *get...life () 

( 

int fd; 


if ( i f i 1 e_e>ci st s ("lspan.dat )) ( 

return NULL; 


> r , lrmn dat",0 BINARY |0_RD0NLY,S 

ftl = open ( 1 s pan . u>n , ... 

if (fd =“ “ 1 ) t 

return NULL; 


IREAD) ; 


> 


read (fd,&life.sizeof (struct tm)); 

close (fd); 
return &life; 


} 


^ ^ -— — 

z p f i 1 


■*/ 


z a p _ f i 1 e ( ) { 

int stat; 

cHz*p f* i 1 £00J * 

-< +■ r> i fl I S 1 I 
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if (!get__data (file name)) { 

ci rscr (); 

cprintf (" Couldn't; Get File Name From Host"); 

} else { 

strcpy ( comrnand_st r i ng , " del "); 
street ( c omrna n d _ s t r i n g , f i 1 e _ n a me ) ; 
system (command string); 

> 

> 



execute fi 1 e 


execute file () { 

i n t stat; 

char file__narne [80]; 


-*/ 


} 


gotoxy (1,? ) ; 

cprintf ("-* Data Corning, . ,"); 
if (!get data (file^name)) { 

CIrscr (); 


} els e 
} 


cprintf ( 11 -* Couldn't Get File Name From Host"); 

{ 

system (fi1e „name); 



date time set () ; set date and 


t i rne according to host 




/ 

date time set ( ) 

{ 

struct time t; 
s t r u c t date d ; 
int stat1,stat ? ; 
char data[80]; 


-* 


use (comm wt); 
clrscr (); 

cprintf ("-* Getting Time. . . " ); 
s t a 11 ~ g e t d a t a ( d a t a ) ; 

if (stat 1 ) rnemcpy ( Jvt , dat a , s i z eof (struct time)); 
gotoxy (1,2); 

cprintf ("-* Getting Date. . . " ) ; 
stat? - (jet data (data); ■ 

if (stat?) rnemcpy (&d,data,sizeof (.struct date)); 
clrscr (); 

if ( (stat 1 ) &.& (stat?) ) cprintf ("-* Got Date/Time " ) ; 
if ( (stat1 ) (scat?) ) { 

sett ime ( &.t ) ; 



! 4'1 
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setdate ( &d ); 
put life . ( ) ; 

} 

return; 



archive data ha se 


a r c hive _d a t a ba s e ( ) 

{ 

system ("archive o"); 

} 



/* run archive ut Iity wit h overright */ 


checkargs 



/ 

9 

/*** 

check_c?rg;? 

{ 

if 


} 

} 

**** / 

9 


( int n,char *1 [] ) 

(n ! = 2 ) { 

main wt ” windowopen (&main_win); 

sett it 1 e (ma in__wt , " How ' SERVER ’ Works" , CenterUpperT i 11 e) 
cTrscr (); 

printf ("SERVER VI. 55" ) ; 
gotoxy (1,2); 

printf (" — ^ Server For GVN Network ); 

gotoxy (1,4); 

printf ("USAGE: server [PORT]"); 

gotoxy (1,6); 

nr i ntf ( " \t Requ i red.: " ) ; 

gotoxy (1,7); 

printf ("\t\t[PORT] - 1 .. 4 (C0M1 to COM4)"); 

gotoxy (1,10); 
p p intf ( " GMM 1 9 9 0" ); 
w i ndow (1,1,80,25); 
gotoxy (1,24); 
exit (0); 





error : 



/ 

/ 

error (int e) 

( 

char message [BO]; 


* 


sprintf (message,"ERROR %d ,e); 
switch) (e) { 
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Port Setup! 


case 

-2 

: sprintf 
break; 

(messane, 

case 

-3 

: sprintf 
break; 

(message, 

case 


: s p r i n t f 
break; 

(message, 

case 

"); 

-5 

: s p r i n t f 

b r e a k ; 

(message, 

case 

-fi 

: s p r i n t f 
break; 

(message, 

case 

-7 

: sprintf 

(message, 


break; 

case -23 : sprintf (message, 

break; 

case - 27 ; sprintf (message, 

brea k; 


I nva I i d Port ! %d " , e) ; 

Port Ai ready I nuse ! %d “ , e ) ; 
Invalid Buffer Size! %d",e); 
Memory Allocation Error in 

Port Not Setup! %d" ,e) ; 

Invalid Parameter! %d",e); 

“Modem Not Res ponding! %d " , e) ; 
"Modem Not Res ponding! %d" ,e ) ; 



case -100: sprintf (message,"Can't 

break; 

} 

errrtn (message); 
hang up (); 


Reset Modem! %d",e); 


hang^up 

*/ 

§ 

void hang_up () 

{ 

int i; 

use (comm_wt); 
clrscr (); 
gotoxy (15 , 2 ); 

cprintf ( " GVN Unloading -> ") ; 
textbackground (Black); 
gotoxy (30,?); 
cprintf (" '' ) ; 

use (comm_wt); /* resets color etc.. */ 

gotoxy (30,?); 

textcoior (Red); 

while (listxempty (PORT) ); 

cprintf ("%g%c",?19,?19); 

timer (T ICKS PERSECOND 5,5 1); 

cprintf ("%c %c",219,219); 

asiputs (PORT1); 

cprintf ("%c%c“,219,?19); 

while (listxempty (PORT) ) ; 

timer ( T I. CKS_PER_SEC0N0 * 2); 

cprintf ("Sfec%c",219,219); 

HMSetl-lookSwi tch (PORT, ONHOOK); 

asiquit (PORT ) ; 

cprintf ("%c%c",219,219); 
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} 


use ( cornm wt ) ; 


/* reset color etc..*/ 


/* - 

/ 

open port : 

open_port ( ) 
I 

i n t s t a t; 


*/ 


st at = ASSUCCESS; 

if ((stat = asifirst (PORT,MODE,RXI.EN, TXLEN) ) < ASSUCCESS){ 

error (stat); 

> 

if ((stat: = asi i ni t ( PORT , BAUD , PARI TY , STOP BITS, WORO_L. ENGTH ) ) 

< ASSUCCESS ) { 
error (stat ) • 

} 

if ( (stat = asdtr(PORT,ON)) < ASSUCCESS) 

error (stat.) ; 

if ( (stat - asrts (PORTION)) < ASSUCCESS) 

error (stat); 

if ( (stat = asistart(PORT # ASINOUT)) < ASSUCCESS) 

e r r o r ( s t a t ) ; 

HMWa i t For OK ( T I CKS PER_SEC 0 ND *3 , NUL L ) ; /* wait; 3 secs */ 
HMSetUpAbortKey (ESC); 



/ 

i n i t modern 


i n i t i a I i ze modem 


Recurrsive function 


irvt in it modern () 

{ 

int stat,i; 


Centerai"); 



stat “ HMReset (PORT); 

whi1e ( (stat <ASSUCCESS) && (i <= 3) ) { 

+ 4 - i ; 


/* reset modern */ 


stat = HMReset (PORT); 
gotoxy (1,3); 
hang„up (); 
open_port(); 

} 

if (i > 3) { 

hang_up (); 
open port (); 

while (init_rnodem () < 1) { 

errrtn ("Couldn't Reset Modem. Contact 


} return 



( TRUE ); 


if (stat < ASSUCCESS) 






/6~o 
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error’ (stat ) ; 
if (ECHO == 0) 

if ( (stat = HMSet Ec hoMode (PORTjOFF)) 

<ASSUCCESS) /* set echo */ 

error (stat); 

if (ECHO == 1) 

if ( (stat = HMSetEchoMode (PORT,ON)) <ASSUCCESS) 

e r r o r ( s t; a t ) ; 

if ( (st: at: = HMSetVerboseMode (PORT, ON) ) < ASSUCCESS) 

error ( s tat ) ; 

/* verba 1 response */ 

if ( (stat ” HMSet Fu 11 Du pi exMode (PORT, ON)) < ASSUCCESS)/* 


duplex FULL */ 


set speaker */ 


error (stat); 

if ( (stat “ HMSetSpeaker (PORT,SPEAKER)) <ASSUCCESS) /* 

t ■ 

error (stat); 


if (i> 3) 

return FALSE; 


return TRUE; 


} 
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server For'GVN Network 



PURPOSE: 

Waits for 


host to 'log on and preforms functions 


Written 8y: 
REVISED: 


Greg McGregor 1990 

What was revised? 


GMM 7-30-1991 
GMM B-13 -19 9 1 
GMM B-14-1991 
GMM 8 —26-1 9 91 
GMM 9-9-1991 


Nothing 

Started the delete execute commands on 
Finished Delete and Execute commands on 
Adjusted version numbers to 1.52 
Won't hang on initialising modem 


T AU 
TAU 


VI 


*/ 

/ 


ttinclude <stdio.h> 

II i n c I u d e t s t d 1 i h . h > 
ttinclude <string.h> 
Hinc1ude <process.h> 

Vi i nciude <t i me . h> 
tt include <window.h> 
tl i n c "I u d e < m a t h . h > 
tt i n c 1 u d e < f 1 o a t . h > 

It include <dos , h> 
tt i nc 1 ude < b i os . h> 
it i n c I u d e ^ m e m . h 2 
tt include <fcntl.h> 
ttinclude <sys\stat . h> 
tt include <io.h> 
ttinclude "asiports.h 

tt -i n o 1 u d e " >< f e r . h" 
tt i nc 1 ude " i binkeys . h" 
tf i n c 1 u d e " g f ■ b " 


ttinclude <windows.h> 
ttinclude <misc.h> 
ttinclude <time.h> 
ttinclude <gbase,h> 
ttinclude <extnvar . h> 


void status_routine 

void transfer status 

char’ calc CRC (char 1 


(char’ *m) ; 

(XFER *b); 
*s,int len); 


int get xchar (); 

int set_answer (); 

struct tm far *gst_life (); 

void start.server C); 

void end_server (); 

vo'id run_server ( ) ; 

void hang..up ( ) ; 


/* 'local commands */ 






Page 1 


•SERVER. C 


void hang_upi (); 
int is_ring ( ) ; 
int init modem. (); 


/* 

* Window Defs 


*/ 


windef comm_win — 

{10, 12,70, 17,Whi te,Blue,FALSE,FALSE, 
windef wait win = {10,4,70,6,White, 


FALSE,TRUE,SINGLEFRAME, 

White,Blue}; 

Red,FALSE,FALSE,FALSE,TRUE,SINGLEFR 


AME, 


White,Red} ; 


windef status_win 
{5,20,75,22,White 


Blue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Blue}; 


/* 

* Window Types 
*/ 

wintype comm_wt,wait_wt,status_wt; 

{{define FULL 1 
{{define HALF 0 

{{define MODE ASINOUT|BINARY|NORMALRX 

{{define RXLEN 1024 

{{define TXLEN 1024 

{{define SECONDS 5 

{{define TRUE 1 

{{define FALSE 0 

{{define ECHO 0 

{{define SPEAKER OFF 


char ACK_CHAR = 0x20; 
char NAK_CHAR — 0x21; 
char LOG_OUT = 0x22; 
char SEND COMMAND = 0x23; 


int PORT; 
int BAUD = 2400; 
int PARITY = P_NONE; 
char PHONE NIJMBER [20]; 
int ST0P_8ITS = 1; 
int WORD_LENGTH = 8; 
int DUPLEX = FULL; 
char command_list[80] ; 
char file name[80] ; 


/* Hotels are all at 2400 Baud */ 
/* No Parity */ 

/* phone number to call */ 
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main: 


--*/ 

/*** 

main (int argc, char *argv[]) 

{ 

int done; 

done = FALSE; 

initwindows (); 

checkargs (argc.argv); 

commwt = windowopen (&comm_win); 

settitle (comm_wt,"GVN Server VI.55",CenterUpperTitie); 
PORT = atoi (argv[1j) - 1; 
whi1e (!done) { 

asiclear (PORT,ASTNOUJ); 
open port (); 
init_modem (); 
if (set_answer()) { 

wait_for_commands (); 

} else done = TRUE; 
hang up (); 

} 

} . 

***** / 

/*- 

* 

set_gvn_port 

VMM W WM W HW Wtf H W W WV W W# *** M* OwM MM W tM MM M* MAM MP M* W M> M« MV MV W MM MV WV AM V W W MP Mf MM MV M« mW VH 

set gvn port (int port) 

m*m w fc 

{ 

PORT = port; 

> 

J 

/X - 

start server 


void start_server () 

{ 

commwt = windowopen (&comm_win); 

settitle (comm_wt,"GVN Server V1 .55",CenterUpperTi11e); 
clrscr (); 
gotoxy (15,2); 

cprintf ("GVN Loading --> " ) ; 

textbackground (Black); 

gotoxy (30,2); 

cprintf (" " ); 

gotoxy (30,2); 

open_port ( ) ; 

cprintf ("%c%c",219,219) ; 

init_modem (); 

cprintf ("%c%c",219,219 ) ; 

HMSetWaitTimeForCarrier (PORT,30); 
cprintf ("%c%c",219,219); 

HMSetAutoAnswerRingCount (PORT,!); 


*/ 


*/ 
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cprintf ("%c%c“,219,219); 
windowclose (comm wt) ; 


/* - 

end server 


void endserver () 

{ 

commwt = windowoperi (&comm_win ) ; 

settitie (comm_wt,"WAIT!",CenterUpperTit1e); 

hangup (); 

windowclose (comm_wt); 

} 

/* 

/* - 

end serverl 


void end_server1 () 

{ 

comm_wt = windowopen (&comm_win); 

setti11e (comm_wt,"WAIT!",CenterUpperTi11e) ; 

hangupl (); 

windowclose (comm_wt); 

} 

*/ 

* 

---- 

i s r i n g 


int is_ring () 

{ 

return (iscd (PORT,IMMEDIATE)); 

} 


*/ 



*/ 



far run server 


void run_server () 

{ 


*/ 


wait_wt = windowopen (&wait_win); 

settitle (wait_wt,"GVN Network Active",CenterUpperTitle); 
clrscr (); 

textcolor ( Whi te+8i i nk ) ,- 

cprintf (“ Please Wait Until Host Is Finished!") 

textcolor (Whi te) ; 

comm_wt = windowopen (&comm_win); 

settitle (comm_wt,"GVN Server VI.55",CenterUpperTitle); 

/* ' HMSetCarrier (PORT,ON); */ 

HMAnswer (PORT); 

HMSetHookSwitch (PORT,OFFHOOK); 
if (!wait for commands ()) { 
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use (wait _wt); 

windowclose (wait_wt); 
(comm_wt); 

windowclose (comrn_wt); 


/*_ _ * 

3et ^answer _ 


int set_answer 

{ 

i n 1’ count ; 
char ch; 


use (comm_wt); 

Clr ^f(" : -* Waiting For TELEMAC Host Connect!"); 

HMSetEscapeCode 0P°RT . . 


' (PORT ,30); 

HMSetWai t T i meForCarr -■ i (PORT) < 

while (HMGet Incomi ngRmgCounc t 

if (kbhit ())( 

ch = getch ();_ 


D ( 


sh * geccn w» r k y */ 

if (ch == 0x1 B) /* * n rs1, Key 

return FALSE; 


HMSetCarrier (PORT, ON); 

HMAnswer (PORT); ncrunfiKV 

HMSetHookS»1 tch (PORT.OFFHOOK). 

return TRUE; 


/* ~ PRFniCATF is connected to site 

connected ; PReuioa^c_ 


int connected () 

{ return iscd ( PORT , CUMULATIVE) ; 


*7 


*- 


pec i ©v©_cornmcincl ^_ 

char recieve command (char c) 


_*/ 


int stat; 
int trys = 0; 


while ( ( Ot*t = 9 et - : 


xchar ()) ! ~ 


c) && (trys 


< 100 ) ) { 























Page 5 


SERVER. C 


} 

if (stat == c ) { 

send_xchar (ACK_CHAR); 
return TRUE; 

} 

return FALSE; /* error */ 


/* - 

send_command 

-- */ 

char send_command (char c) 

{ 

int stat; 
int trys; 


trys = 0; 
send_xchar (c); 
do { 

stat = get xchar (); 

if (stat != 0) cprintf ( " %g 11 , stat ) ; 

++trys; 

sendxchar (c); 

} while ( (stat != AGK_CHAR) && (trys < 30) ); 

if (stat == ACKCHAR) 

return TRUE; 
return FALSE; 

} 

/*- 

wait for commands 

- */ 

int wait_for_commands () 

{ 

int stat,a command,done,B connected,trys; 
int id!e_time = 0; 

int fd,H0ST_LOCKED_M0DE = FALSE; 
char s[20]; 

8_connected = FALSE; 
done — FALSE; 
t rys = 0; 

while (!connected ()) ; 

asicl ear (PORT,ASINOUT); 
while (!done) { 

use (comm_wt); 
clrscr ( ) ; 

cprintf (" -* Sending .Job Request [ ]"); 
trys = 0; 

while (!send_command (SEND_COMMAND) ) { 

clrscr (); 

++trys; 







/67 
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t * 

cprintf ("-* Sending Job Request [%d]“,trys)• 
if (trys >= 3) return; 

> 

clrscr (); 

cprintf ("-* Waiting For A Command"); 

stat = get_xchar () ; /* wait for a command */ 

if (stat == 0) ++i d 1 e._t i me; 

if (stat == 0x02) { /* request for file trasnfer*/ 

clrscr ( ) ; 

cprintf ("—* Host Requesting An UPLINK!"); 
send_xchar (ACK_CHAR); 
fi1e_send(); 
idle_time = 0; 

} else 

if (stat == 0x01) { 

clrscr ( ) ; 

cprintf ("-* Host DOWNLINKING A File"); 
timer ( T T.CKS_PER_SECOND) ; 
sendxchar (ACK_CHAR); 
filereceive(); 
id1e_time = 0; 

} else 

if (stat == 0x03) { 

clrscr ( ) ; 

cprintf (" —* Host Requested An Archive!"); 
send_xchar (ACK_CHAR); 
archive database (); 
idle_time = 0; 

} else 

if(stat==0x05){ 

clrscr ( ) ; 

cprintf ("-* Date/Time Verification...“); 
send_xchar (ACK_CHAR); 
date_timeset (); 
idle_time = 0; 

} else 

if (stat == 0x08) { 

clrscr ( ) ; 

cprintf ("-* Sending Agreement Records To Host"); 
send_xchar (ACK_CHAR); 
sendagreemnt(); 
idle_time = 0; 

} else 

if (stat 0x09) { 

clrscr ( ) ; 

cprintf (“-* Sending Phone File To Host“); 
send_xchar (ACKCHAR); 
send phone ( ) ; 
idle_time = 0; 

} else 

if (stat == OxOA) { 

c'lrscr (); 

cprintf ("-* Host Requesting A Reboot!"); 
send xchar (ACK CHAR); 
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reboot (); 

} el se 

if (stat == 0x08) { 

clrscr (); 

cprintf ("-* Host Locking Software!"); 
send_xchar (ACK_CHAR); 
end server (); 

1ock_software (); 
i d 1 e_t i me = 0 ; 
done = TRUE; 

HOST LOCKED MODE = TRUE; 

} e 1 se 

if (stat == 0x00) { . 

clrscr ( ) ; 

cprintf ("-* Host Requesting Serial Number!"); 
send_xchar (ACKCHAR); 
send_seria 1_number (); 
id!e_time = 0; 

} else 

if (stat == OxOD) { 

c 1 r s c r ( ) ; 

cprintf ("-* Receiving Monthly Vitamins!"); 
send_xchar (ACK_CHAR); 
put_life (); 
id1e_time = 0 ; 

} else 

if (stat == OxOE) { 

clrscr (); 

cprintf ("-* Host Unlocking Software!"); 
send_xchar (ACK_CHAR); 

SYST EM_l..0CKED = FALSE; 

fd = open ("c:\\''\\~" , 0_WR0N L Y | 0_81 N ARY | 0_TRUNC , S_ 1WRI TE ) 

s[0] = ’1'; /* reset file flag as unlocked */ 

write (fd,s, 1 ) ; 

close (fd); 

idle_time = 0; 

done = TRUE; 

} else 

if (stat == OxOF) { 

clrscr (); 

cprintf ("-* Host Requesting A File ZAP!"); 
send_xchar (ACK_CHAR); 

?rap_f ile(); 
idle_time = 0; 

} else 

if (stat == 0x10) { 

clrscr (); 

cprintf ("-* Host Requesting A File EXECUTE!"); 
send_xchar (ACK_CHAR); 
execute_file (); 
id!e_time = 0; 

} else 

if (stat ==0x11) { 

clrscr ( ) ; 
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cprintf (“-* Host Requesting A Data LOCK!"); 
send_;<char (ACK_CHAR); 

ME_LOCK = TRUE; 

} else 

if (stat == 0x12) { 

clrscr (); 

cprintf (“-* Host Requesting A Data UNLOCK!"); 
send_xchar (ACKCHAR); 

ME_L0CK * FALSE; 

} else 

if (stat == LOGOUT){ 

gotoxy (1,2); 
cprintf ("Log out!"); 
done = TRUE; 

} else 

send_xchar (NAK_CHAR); 

if (idletime > 20) { 

cprintf ("Timed out!"); 

return; /* no command for 21 loops */ 

} 

} 

return H0ST_L0CKED_M0DE; 

} 


/* ----- 

get_xchar: get char from line 

-;-*z 

* 

int get_xchar () 

{ 

int stat; 
int trys “ 0; 


while ( ( (stat = asigetc (PORT)) < ASSUOCESS) && (trys <10000) 

++trys; 

> 

if (trys < 10000) return stat; 
return 0; 

} 


send xchar : send a char down line 


- — — — • —' —' — ■— — —' *— •— —» » — — — — ■— — —— — ™ — —r. — •— — — ——■ — <— w- w —~ — W ~~ — <— — — —» — — «— * — — —» — ^ 

sendxchar (char c) 

{ 

int stat; 

while ( (stat = asiputc (P0RT,c)) < ASSUCCESS) ; 

} 




/* - 

get _data 
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int get_data (char *data) 

{ 

char bytes,crc,crc1 ; 

int i,j,k,stat,return_value; 

char temp[256],tempi[256] ; 

k = 3; 

whi1e (k) { 

while ( (bytes = get_xchar ()) == 0); 
use (comm_wt); 
clrscr ( ) ; 

cprihtf ("-* Bytes Coming %d bytes); 
i = 0; 

while (i<bytes-1) { 

temp[i] = get_xchar (); 

++i ; 

} 

crc = temp[i-1'J; 
temp[i-1] ® '\0 ' ; 

crcl = ca'lc_CRC (temp, (bytes - 2)); 
if (crc != crcl) { 

return value = FALSE; 

_k . 

asiputc (PORT,NAK_CHAR); 
cprintf ( "-* Retrying Data..."); 

} 

if (crc == crcl ) { 

k = 0; 

return_value = TRUE; 
asiputc (PORT,ACK_CHAR); 

> 

} 

strncpy (data,temp,bytes-2); 
data[bytes-2] = '\0'; 
return returnva1ue; 

} 


/* - 

calc CRC 


■*/ 


char calc CRC 

{ 

i n t i , j ; 
char crc; 


(char *s , int 1en) 


crc = 0 ; 

i = 1 en ; 

crc = s [0] ; 

for (J=1;j<i;j++) 

crc -- crc ~ s[j]; 
return crc; 


} 




/t>i 


Page 10 

SERVER.C 


/* - ; _ ;; _ 

file_receive 

- - / 

file_receive () 

{ 

i n t stat; 

stat = YmodemRecei ve ( PORT , st atus._rout ine, NULL , ESC) ; 
gotoxy (1,4); 

cprintf ("File Transfer Status %d",stat); 

} 


/*- 

send_agreemnt 


send_agreemnt () 

{ 

i n t stat; 

stat = YmodemSend (PORT,"agreemnt. 

} 


*/ 


, status_routine,NULL,ESC); 


/* - 

send phone 


send_phone () 

{ 

int stat ; 

stat 

} 


*/ 


YmodemSend (PORT,“phone. 


, status routine,NULL,ESC); 


/* - - 

filersend 

- 

fi1e_send ( ) 

{ 

int stat; 

char file_name [BO]; 


send 

} 


cprintf ("-* Data Coming..."); 
if (!get_data (file_name)) { 

clrscr ( ) ; 

cprintf ("-* Couldn’t Get File Name From Host"); 

} else { 

c 1 rscr (); 

cprintf ("Host Requested File 1 %s 1 ",fi1e_name); 

timer (TICKS_PER_SECOND * 3); /* wait 3 seconds before 

starts */ 

stat = YmodemSend (PORT,file name,status routine,NULL,ESC); 



void status_routine (char *m) 

{ 
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gotoxy (1,3); 
c p r i n t f ( " 
gotoxy (1,3); 
cprintf ("%s\n",m); 


" ); 


/* - 

reboot () 


„__ _ _ _ _____ _ _ _ _ _ _ _ __. ______ 


reboot () { 

system ("reboot"); 

} 


^ ^ _______ 

send seria 1 number 


*/ 


send_seria 1_number () { 

int fd; 
i n t s t a t ; 

fd = open 

( " serial . dat" , 0_WR0NLY | 0_TFXT | 0_JRUNC | 0_CREAT , S_I READ | S_I.WRI TE) ; 

write (fd,"Not implemented ! 11 , strlen ("Not implemented!")); 
c1ose (fd); 

stat = YmodemSend (PORT,"serial.dat",status routine,NULL,ESC) 

} 


- 

1ock_software 

1ock_software () { 

end_server ( ) ; 

1ock_system ( ) ; 


/*- 

fi1e_exists 

^ w w - r. r *-*■ ^ w » w* mm «w w i w wm iw w m»i > w «« 

int file exists (char *s) 

{ 

FILE *f; 

f = fopen (s, "r" ) ; 
if (f ”= NULL) 

return FALSE; 
fc1ose (f); 
return TRUE; 

} 


- 

put_life: re-birth software 


*/ 
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put_life ( ) 

{ 

struct tm *t ; 
time_t tm; 
i n t f d ; 


tm = time(NULL); 
t = 'localtime (&tm) ; 

t->tm_yday ■+•= 30; /* add one month to life span */ 

if (t->tm_yday > 365) { /* allow for year change */ 

t->tm_year++; 

t->tm_yday = t->tm yday - 365 ; 

} " 

fd = open ("Ispan.dat",0 BINARY|0_WR0NLY|0_CREAT|0_TRUNC,S IWRITE) 
if (fd != -1) { ■ 

write (fd,t ( sizeof (struct tm)); 

} 

close (fd); 



get 1ife 


return Birthday of software 


•*/ 


struct tm life; /* global */ 

struct tm *get_life () 

{ 

i n t f d ; 

if (!fi1e_exists ("lspan.dat")) { 

return NULL; 

> 

fd = open ("lspan.dat" ,0_BINARY|0_RD0NLY,S_I READ); 
if (fd == -1) { 

return NULL; 

} 

read ( f d ,&1 i f e , si 7. eof (struct tm)); 
c1ose (fd) ; 
return &life; 

} 


zap file 


zap_file () { 
i n t s t a t ; 

char file_name [60]; 
char command_string[255] ; 

gotoxy (1,2); 

cprintf ("-* Data Coming. . ," ) ; 


*/ 
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if (!get data (file_name)) { 

clrscr (); 

cprintf (“—* Couldn't Get File Name From Host"); 

} else { 

stropy (command_string,“del "); 
strcat (command_string,filename); 
system (commandstring); 

} 

} 


/*- 

execute_file 

execute_file () { 
int stat; 

char file name [80]; 


} 


gotoxy (1,?); 

cprintf ("-* Data Coming.. ."); 
if (!get_data (file_name)) { 

c1rscr () ; 

cprintf (“-* Couldn't Get 

} else { 

system (file_name); 

} 


File Name From Host"); 


/* - 

date_time_set () : set date and time according to host 

W VW W* W WV V* wr W t WM> ■ t ■ W HP# W H* WH wr M W W W m W* W* m V*** 4 * * «■* WV — ■■ Hw tM *11 * WW W* W. ■ W W «W mp ■ W * l» 

/ 

I 

date_time_set () 

{ 

struct time t; 
struct date d; 

int statl,stat2; ' 

char data[80]; 


use (comm_wt); 
c1rscr ( ) ; 

cprintf ( " —* Getting Time..."); 
statl = getdata (data); 

if (statl) memcpy (&t,data,sizeof (struct time)); 
gotoxy (1,2); 

cprintf ( "-* Getting Date..."); 
stat? = get_data (data); 

if (stat2) memcpy (&d,data,sizeof (struct date)); 
clrscr (); 

if ( (statl) && (stat?) ) cprintf ("-* Got Date/Time ") 
if '( (statl) && (stat?) ) { 

settime (&t); 
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setdate (&d ) ; 
put life (); 


return; 


/*_ 

archive database 


*/ 


archive_database () 

{ 

system ("archive o" ) ; /* run archive ut'lity with overright*/ 

} 

^ ^ W H* U* *> W W ^ WIT W W W 4*’ W tow* W* w* W to** W W tow taw taw ta w« ^w Wta taW V W M ta W ^ ^ w ^ r H w -- ■ ^ ■ ■ - ^ - , -p M ^ -, , — ^ . _. ^ , 

check__args 


-*/ 

/ 

/*** 

check_angs 

{ 

i f 


(int n,char *1 [] ) 


(n ! = 


2 ) { 

main_wt = windowopen (&main_win); 

settitle (main_wt,"How 'SERVER' Works",CenterUpperTitie); 
clrscr (); 

printf ("SERVER VI. 55"); 
gotoxy (1,2); 

printf (“ -* Server For GVN Network"); 

gotoxy (1,4); 

printf ("USAGE: server [PORT]"); 
gotoxy (1,6); . 

printf ("\tRequired:"); 
gotoxy (1,7); 

printf ("\t\t[PORT] - 1 4 (C0M1 to COM4)"); 

gotoxy (1,10); 

printf ("GMM 1990"); 

window (1,1,80,25); 

gotoxy (1,24); 

exit (0) ; 




/* 


error 


error (int e) 

{ 

char message [80]; 


sprintf (message,"ERROR %d",e); 
switch (e) { 
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Port Setup! %d,e"); 


case 

-2 

: sprintf 
break; 

(message, 

case 

-3 

; sprintf 
break; 

(message, 

case 

-4 

: sprintf 
break; 

(message, 

case 

-5 

: sprintf 

(message, 

" j; 




* 


break; 


case 

-6 

: sprintf 
break; 

(message, 

case 

-7 

: sprintf 
break; 

(message, 


case -23 : sprintf (message,"Modem Not. Responding! %d",e); 

break; 

case -22 : sprintf (messageModem Not Responding! %d“,e); 

break; 

case -100: sprintf (messageCan't Reset Modem! %d" J e); 

break; 


} 


} 

errrtn (message); 
hang_up (); 


/* 


hang_up 


*/ 

* t 

void hang up () 

{ ~ '■ 
inti; . 


3 


i £ 


/r * 

. *■ !■ 










, 4 






use (cfbm'ijrwt) ; . ■: ' : 

c 1 rscr? ()'; . ' . . V \ 

gotoxy (15,2); 

cprintf' ("GVN Unloading -> "-) ; 

text background ( ; B;lack); 

gotoxy (30,2); 

cprintf (“ “); 

use (commjwt); /*. resets color etc. 

gotoxy ( 30$ 2 ) ; 

textcolor (Red); . 

while (iistxempty (PORT) ); 

cprintf (."%c%c" ,219,219); 

timer (TICKS_PER_SECOND * 1); 

cprintf (‘ , %c%c , ‘ ; 21 9 , 21 9) ; 

asiputs (PORT,"+++",-1); 

cpKintf (.-" $c : %c" , 2,1 9 , 2 1 9 ); , .■: 

'while ( ! i’stxempty (PORT)..!.').- 

t irrier (•TI : CKS_PER_SECONp '* .2 )‘ • 

cprintf ( ,i %c%c" , 219,219) ; ' . 

HMSetHookSwItch (PORT, 0NH00K); 

asiquit (PORT); 

cprintf ("%c%c",219,219); 


• */ 


& 

* 
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use (comm_wt); /* reset color etc..*/ 


/* - 

open_port: 


open_port 

{ 

i n t stat; 


*/ 


st: at = ASSUCCESS; 

if ((stat = asifirst: ( PORT , MODE , RXL EN , XXL EN ) ) < ASSUCCESS ){ 

error (stat); 

} 

if ((stat = asiinit(PORT,BAUD,PARITY,STOP_BITS,WORD_LENGTH)) 

< ASSUCCESS ) { 
error (stat); 

} 

if ( (stat = asdtr(PORT,ON)) < ASSUCCESS) 

error (stat) ; 

if ( (stat = asrts (PORT,ON)) < ASSUCCESS) 

error (stat) ; 

if ( (stat = asistart(PORT,ASINOUT)) < ASSUCCESS) 

error (stat); 

HMWaitForOK (TICKS_PER_SEC0ND*3 , NULL.) ; /* wai t 3 secs */ 
HMSetUpAbortKey (ESC); 


init modem ; initialize modem Recurrsive function 


*/ 


int 

{ 

int 


init modem 


stat, i ; 


Cent era 1 11 ) ; 


i = 0 ; 

stat = HMReset (PORT); 

while ( (stat <ASSUCCESS) && (i < 

++i ; 

stat = HMReset (PORT); 
gotoxy (1,3); 
hangup (); 
open_port(); 

} 

if (i > 3) { 

hang_up (); 

openport (); 

while (init modem () < 1) 

errrtn ("Couldn’t 

} return ( TRUE ); 


/* reset modem */ 


= 3) ){ 


Reset Modem. Contact 


if (stat < ASSUCCESS) 





Page 1 7 


SERVER.G 


<A5SUCCESS) 


error (stat); 
if (ECHO == 0) 

if ( (stat = HMSetEchoMode (PORT,OFF)) 

/* set echo */ 

error (stat); 

if (ECHO == 1) 

if ( (stat = HMSetEchoMode (PORT,ON)) <ASSUCCESS) 

error(stat); 

if ( (stat = HMSetVerboseMode (PORT,ON)) < ASSUCCESS) 

error (stat) ; 

/* verbal response */ 

if ( (stat = HMSetFu1 1 DuplexMode (PORT,ON)) < ASSUCCESS)/* 


duplex FULL 


set speaker */ 


error (stat); 

if ( (stat = HMSetSpeaker (PORT,SPEAKER)) <ASSUCCESS) /* 

error (stat); 


if (i> 3) 

return FALSE; 


} 


return TRUE; 
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MODULE start rtb.c 

PURPOSE: This module does the initia 1i z ation of the phone for the real- 
t i me 

hilling event. Upon a return of a phone, the realtime.c MODULE 

performs 

the neccessary actions to return and calculate phone charges. 

T ogether 

t hese two modules are the rea11 i me bi1 ling system. 

INCLUDES: rtb.h - all defines are in here 

rtbfunc.h - common functions between startrtb and 

realtime occur 


here . 


Written By : Greg McGregor 1990 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 



Hinclude 
#include 
Hind ude 
Hinclude 
Hinclude 
Hi nclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinc1ude 
Hinclude 
Hinclude 


<stdio.h> 

<std1ib.h> 

<gkeys.h> 

<bios.h> 

<time.h> 

<windows.h> 

<gbase.h> 

<extnvar.h> 

<extscrns.h> 

<rtb.h> /* realtime billing definitions */ 

<rtbfunc.h> /* common rtb functions */ 

<misc.h> 

<decphone.h> 

<phonstat.h> 


Hinclude 

Hinclude 

Hinclude 

Hinclude 

Hinclude 


< bench.h> 

< proc.io> 
<agreev3.h> 
<phone.h> 
<agrio.h> 


Hinclude <cti_com.h> /* interrupt driven 10 to cti */ 

i / 

^define C0M1 0 
^define COM2 1 
^define COM3 2 
ttdefine COM4 3 


^define CTI_BAU0 9600L 
ttdefine CTI PORT C0M1 



I 


no 
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/* 

* GL.OBAL.S 
*/ 

cti_obj sco; /* starting CTI object, sco */ 

char sco buff[1024]; /* setup an sco buffer of IK bytes */ 


_ 

map initial maps RT8 activity for inital rental 

_ * / 

int map_initial (s) 

int s; /* current state of transmission */ 

{ 

switch (s) { 

' case START_STATE: 

return (6ET_NUMBER); 

case UNLOCK PHONE: /* SKIP THIS FOR NOW-UNLOCK OCCURS 


AFTER PRINTING*/ 

case 

case 


return (6ETNUMBER); 
GET_VERSION: 

return (GETNUMBER); 
GET NUMBER: 


return (RESETPOINTER); 
case RESET POINTER: 


return (RESET_CALL_CTR); 
case RESET CALL CTR: 


again */ 


} 

return 

} 


return (RESET_ MET ER); 
case RESET_METER: 

return (SEND_TIME_DATE); 
case SENOTIMEDATE: 

return (GET_TIME_DATE); 
case GET TIME_DATE: ' 

return ( POWER._DOWN ) ; 
case POWER_POWN: 

return (EN D_ST ATE); 

case NAKSTATE: /* time didn't set try 

return (SEND_TIME_DATE); 

case END STATE: /* maps to itself */ 

return (END_STATE); 

case ERROR_STATE: /* errors, start over */ 

return (START_ST ATE); 

( ERROR STATE); /* STATE_D0ESN'T make sense */ 


/* - 

start rtb 
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int start_rtb () 

{ 

int stcit; 

set_up_cti_object (&sco, CTI_BAUD, CTJ_PORT, 1024, 2); 

set_cti_buffer (&sco, &sco_buff); /* point sco buffer to sco buff 

*/ 

stat = open_cti_port (&sco); /* start interrupts */ 


if (stat < 0) { 

rt b error (-2); 
return (-2); 

} 

stat = start_transfer(); 

close_cti_port (&sco); 

if (stat <= 0) 

return (stat); 
return TRUE; 

} 


/*- 

start transfer 


int start_transfer() 

{ 

register int out,in,stat; 
int trys; 

int state = START_STATE; 
int DONE ~ FALSE; 
int pos = 0; 
char abyte; 

int trys_get_time = 0; 

abyte = 0x01; 
while (1) { 


/* determine state of transmission and do appropriate */ 
switch (state) { 

case START_STATE: 

trys = 0; 
stat = FALSE; 

set _cti_command (&sco,TURN_0N); 
stat = docti_command (&sco); 
if (1stat) { 

++t rys; 

errrtn ("Please turn the phone on and place it in the C 

TI" ); 

} else state = mapinitial (state); 
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i f ( ! stat:) { 

rtb error (-7); 
return -7; 

} 

break; 

case UNLOCK_PHONE: 

set _ct i command (&sco,UNLOCK_PHONE); 
stat = do_cti_command (&sco); 
if ( ! s t a t ) { 

rtberror (-8); 
return -8; 

} else state = map_initial (state); 
b r ea k; 

case GET_VERSION: 

set_cti_command (&sco,GET_VERSION); 
stat = do ct 1 _command (fysco) ; 
if ( ! stat ) { 

rtb_error (-8); 
return -8; 

} else state = map_initial (state); 
break; 

case GET_NUMBER: 

use (CTI_wt); 

c1rscr (); 

cprintf ("-* Retrieving Cellular Phone Number”); 
set_cti_command (&sco,GET_NUM8ER); /* get data 

into sco_buff */ 

stat = docti command (&sco); 
if ( ! stat) { 

rtb error (-9); 
return -9; 

} else 

decode phone (agreemntrec.curphoneno,sco buff); 
if (!checkphone ()) { 
return -?3; 

} else state = map_initia'l (state); 
break; 

case RESET POINTER: 

use (CTIwt); 
c 1 r s c r ( ) ; 

cprintf ("-* Resetting Call(s) Pointer"); 
set_cti_command (&sco,RESET_POIN TER); 
stat = docti command (&sco); 
if ( ! stat){ 

rtb error (-13); 
return -13; 

} else state = mapinitial (state); 
b r ea k; 

case RESET_CAL. L CTR: 

use (CTI_wt); 
c 1 rscr (); 

cprintf ("-* Resetting Call Counter"); 
set_cti command (&sco,RESET_CALL_CTR); 
stat = do cti command (&sco); 
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difference */ 


reason ? */ 


if(!stat){ 

rt b_er ror ( — 17 ); 
return - 17 ; 

} else state =. map_initial (state); 
break; 

case RESET_MET ER: 

use (CTI_wt); 
c 1 rscr (); 

cprintf ("-* Resetting Cumulative Meter"); 
set _cti command (&sco , RESET METER); 
stat = do_cti_command (&sco); 
if (!stat){ 

rtb_error (- 1 . 4 ); 
return -14; 

} else state = map_initial (state); 
break; 

case SEND_TIME_ DATE: 

use (CT I _wt); 
clnscr (); 

cprintf ('•-* Setting RTB Chip Time"); 

strcpy (phone time rec,"11111111"); /* set to 


strcpy (phonestime_send ," 22222222 "); 

convert_to_phone_time (phone_time_send); 

set_ct i ^command (&sco, SEND_T I ME__DATE ) ; 

set cti_send_buffer (&sco, &p honest i me_send ) ; 

stat - do_cti^command (&sco); 

set __ct i ^command (&sco, IN_CT I ) ; 

stat = do_cti_command (&sco); 

if ( ! stat) { 

rt b error ( — IS) ; 
return -15; 

} else state “ map initial (state); 
break; 


case GET TIME DATE 


use (CTI_wt); 
clrscr* (); 

cprintf ("-* Verifying RTB Chip Time"); 
set_ct i ^command (&sco,GET_TIME_DATE) ; 
stat = do_cti_command (&sco); 
moveX (phone_t1 me_rec,sco_buff,10); 
if ( ! stat ) { 


rtb_error (-15); 
return -15; 


} else { 

phone_time rec [ 0 ] — 0 ; 
phone__t i me_rec [ 1 ] =0; 
phone time_send[0] = 0; 
phone^time_send [ 1 ] = 0 ; 

/* turns bit 5, of 0-7, off on for some 


phone _t ime_rec [5] = phone__t ime_rec [5] & 


OkBF; /* bit 5 off */ 


if (Xcmp 
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4 


t - 4 

* * 

i 

i 

f 

t, 

(phone_time^send,phone^time^rec,8) ~ = 0) { i 

state = map_initia I (state); . 

} else { 1 

.state = SEND_TI ME_DAT E; j 

c1rscr (); j 

cprintf ("-* ERROR retrying j 

time/chip setting!"); [ 

delay ( 1000); /* delay 1 second */ ■■ 

++trys_get_time; : 

} r 

) ■ 

if (trys^get_time >~ 2) { /* try loop twice */ ‘ 

rtb^error (-15) ; 

return' -15; ! 

state = END_STATE; 

} else stat = map initial ( state ); 
break; 

case POWER DOWN: 


} 


use (CTI_wt); 
c 1 rscr (); 

cprintf ("-* Turning Cellular Phone OFE"); 
set_cti_command (/vsco , POWER_DOWN ) ; 
stat = do_cti^command (&sco); 
if ( ! stat){ 

rtb_error (-19); 
return -19; 

} else state = map initial (state); * 

k 

break; i. 

case EN0_STATE: 

stat r end_state_startrtb ( ) ; 
if(!stat){ 

rt b error (-12); * 

return -12; 

} else return TRUE; ; 

break; 

case ERROR_STATE: 

delay (1000); /* wait 1000 ms */ 

rtb_error(-6); 

ret urn -6; ' ■ }. 

state = map_initial (stated- 

break; 


return (TRUE); 


/* 


reset call counter 


- * / 

reset_ca11 counter ( ) 

{ 

in t stat; 
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use (CTI_wt); 
c 1 rscr (); 

cprintf (" -* Reseting Call Counter!' 1 ); 
wait_command (); 

stat = bioscorn (1, RESET_CALL_CTR, RTB_PORT); 
return TRUE; 

> 


- 

end state startrtb 


- */ 

int end_state_startrtb () 

{ 

use ( CT .1 _wt ) ; 
c1rscr (); 

cprintf (" —* Do NOT Remove Phone From CTI!"); 
return TRUE; 

} 

/*-- - 

check phone: 


int check_phone () 

{ ' 

int iostat = 0; 

struct phonedef temprec; 

char s[80]; 

iostat = se'lectinx9 ( f d_phone , 1 ) ; 
iostat = reset_file9 (f d_phone, fytemprec) ; 

moveX (phonerec.curphoneno , agreemntrec.curphoneno ,12); 
iostat = exactkey9(fdphone, &phonerec); 
if (iostat < 0){ 

phonerec.curphoneno[12] = '\0'; /* null it */ 

display_phone_status message ('9'.phonerec.curphoneno); 
return(FALSE); 

} else 

if (phonerec.status[0] != '0'){ 

phonerec.curphoneno[12] = '\0'; /* null it */ 
dispi ay_phone_status_message 
(phonerec.status(0],phonerec.curphoneno); 

return(FALSE); 

} 

return (TRUE); 

} 

- 

other_phone 

- . - - -*/ 

int other_phone () { 
int correct; 
char ch; 
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wintype win; 
int key; 


} 


win = note ("Put a Different Phone in CTI and Press <ESC> Key"); 
gotoxy (15,3); 

cprintf ("Press the <F2> key to Quit!"); 
do { 

c h = getc h(); 

if ( (is_extended_key (ch,&key)) && (key == K_F2) ) { 
windowclose (win); 
return FALSE; 


> 

if (ch == K ESC) correct = TRUE; 
} while ((correct); 
windowclose (win); 
return TRUE; 


int unlock_turn_off_phone () { 
i n t s t a t ; 

setupcti object (&sco, CTI_BAUD, CTI_PORT, 1024, 2); 

set_cti buffer (feco, fcscobuff); /* point sco buffer to 

sco_buff */ 

stat = opencti_port (&sco); /* start interrupts */ 

use (CTI_wt); 
clrscn (); 

cprintf ("-* Unlocking Phone"); 
set_cti_command (&sco,UNL0CK_PH0NE); 
docti command (fcsco); 
clrscr (); 

cprintf ( "-* Turning Phone Off"); 
set _cti command (&sco,POWERDOWN); 
do cti command (Sisco); 

/* 

9 

set_cti command (&sco,TURN_OFF); 
do_cti^command (fi<$co); 

*/ 

close cti port (&sco); 


} 


/ 


I 
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- 

update_tau_status 

Update function for TAU status byte 
6MM 8-10-1991 


— */ 


#1nc1ude 
ftinclude 
fti nc 1ude 
ftinc1ude 
ftinclude 
ft include 
It i nc 1 ude 
ftinclude 


<stdio.h> 
<ctype.h> 
<bench.h> 
<proc.io> 
<sys\stat.h> 
<windows.h> 
<gkeys.h> 

<misc.h> 


ftinc1ude 
ft i no 1 ude 
ftinc1ude 
ftinclude 
ftinc1ude 
ftinclude 
fti nc 1ude 
ftinclude 
fti nc 1 ude 


<agreev3.h> /* struct formats */ 
<control.h> 

<phone.h> 

<raperson,h> 

<agrio.h> 

<gbase.h> 

<time.h> 

<extnvar.h> 

<gstring,h> 


/*- 

update_tau_status : follow priority values 

gets reset only if val is of higher priority 


void update__tau_status (int byte_num, char val) { 

switch (byte_num) { 

case 0: 

agreemntrec.tau_status0[0] 
break; 

case 1: 

agreemntrec,tau_status1 [0] 
break; 

case ?: 

agreemntrec.tau_status?[0] 
break; 

case 3: 

agreemntrec,tau_status3[0] 
break; 

case 4: 

agreemntrec.tau_status4[0] 
break: 


va l ; 


va l ; 


va 1 ; 


va 1 


val ; 


*/ 
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/ - -- 

' * 

*•# 

MODULE: Update Agreement 

Written By : Greg McGregor 12/1990 

Purpose ; To allow an employee to add additional equipment to an alread 

y 

completed contract. 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 

GMM 0-29-1991 changed include <agreemnt.h> to <agreev3.h> 


Hinc1ude 
Hindude 
It include 
tlincl ude 
ttinclude 
It include 
Hinc1ude 
ttinclude 
Hinc1ude 
Hinc1ude 
Hinclude 
ttinclude 
Hind ude 

Hi nclude 
Hind ude 
Hinclude 
Hin clu d e 
Hinclude 
Hinclude 
Hi nclude 

Hinclude 
Hinc1ude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 


<process.h> 

< s t d i o . h > 
<conio.h> 
<stdlib.h> 

<time.h> 

<s tr ing.h> 

<window.h> 
<dos.h> 

< hi os.h> 
<ctype.h> 
<bench.h> 
<proc.io> 
<\sys\stat.h> 


<agrio.h> 

<agreev3.h> /* all types, making them externs */ 

<control.h> 

< phone.h> 

<raperson.h> 

<gbase.h> 

<extnvar.h> /* patches global variables as externs */ 


<windows.h> 
<gkeys.h> 
<extscrns.h> 
<whatopen.h> 
<misc.h> 

<get1ine.h> 
<cardrdr.h> 
<credit.h> 

<d ispopen. h> 
<printer. h> 
<startrtb.h > 
<rt bfunc. h> 
<ma inmenu. h> 


wi ndef 
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update_win={10,12,70,20,White,Black,FALSE,FALSE,FALSE,TRUEiSINGLEFRAME, 


White,Black}; 



updagr : ENTRY POINT INTO MODULE 


-*/ 

updagr () 

{ 

PRI NT ED__CONT RACT = FALSE; 
textcolor (White); 
textbackground (Black); 
window (1,1,80,25); 
c!rscr ( ) ; 

ma inTi11eWindow_update(); 
open__f i1es( ) ; 
if ( ! get_contract ()) { 

c1ose_fi1es ( ) ; 
close_al1^windows (); 

} else { 

update_screen ( ) ; 
close_files ( ) ; 
c1ose_a11_windows (); 

} 

PRINTSD_C0NTRACT = FALSE; 

return; 

} 


updateag reemnt 


update_agreemnt ( ) 

{ 

int iostat; 
wintype win; 

iostat = updrec9 (f d__agreemnt , &agreemntrec); 
if (iostat < 0){ 

win = note (“Could Not Update The Agreement!"); 

gotoxy (25,3); 

cprintf ("Press ESC to Exit"); 
getch (); 

windowclose (win); 
close_file9 (fd_agreemnt); 
exit (0); 

} else { 

system ("ccopyit agreemnt. "); 

system ("ccopyit phone. "); 




} 


} 
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mainTit1eWindow update 


__*/ 

mainTitleWindow_update () 

{ 

windef list_win={2,2,20,9,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Red}; 

static wintype list wt s ; 


main_wt = wirtdowopen (&main win); 

sett i tie ( ma in_wt, " *— Telemac Cellular Corporation 
, CenterUpperTi tie) ; 

list_wt_s = windowopen (&list_win); 

settitle (1ist_wt_s,"COMMANDS",CenterUpperTitle); 

gotoxy (5,2); 

cprintf ("FI - Help"); 

gotoxy (5,3); 

cprintf ("F2 - Cancel"); 

gotoxy (5,4); 

cprintf ("F3 - Finish"); 

gotoxy (5,5); 

cprintf ("F6 - Exit "); 

use (mainwt); 

} 


/*- — 


get_contract ; Pull up a contract to alter 


- */ 

int get_contract () 

{ 

wintype win,win2; 

picklist_type menu; 

char agreeno_save[15] ; 

int sel,key,iostat,keymatch,found; 

struct agreemnt_def temp agreemnt; 


windef 

menu_update_win={25,8,55 

E, 


16,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFRAM 


White,Red}; 


found = FALSE; 

add_to_pick_ 1 ist (&menu,"8y Contract Number", 1); 
add_to_pick_list (fitmenu," 8y Phone Number “,2); 
add_to_pick_list (&menu," Exit " , 3 ) ; 

select : 

found = FALSE; 

nul1_field (agreemntrec.agreeno,12); 

moveX (agreemntrec.custname, " ",25); 
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moveX (agreemntrec.curphoneno," - - ",12); 

win = windowopen (&menu_update_win) ; 
sett i 11 e (win , ’’Opti ons 11 , CenterUpperT i 11 e) ; 
sel - pick^list ( &menu , 3 , " Sel ect a Method”); 
switch ((char)sel){ 

case 1: windowclose (win); 

get_contract^number (); 
key - 1; 
break; 

case 2: windowclose (win); 

get w phone_number (); 

key = 3; 

break; 

case 3: return ( FALSE ); /* requested Exit */ 

case 0x1B; return ( FALSE ); /* ESC key */ 

} 

if ( key . -•= 1 ) { 


iostat = 0; 

iostat = exactkey9 (fd_agreemnt, &agreemntrec); 
if (iostat <0){ 

errrtn ("Can 1 1. Find Agreement!"); 
goto select; 

} else found = TRUE; 


} 

if (key = “ 3 ) { 


&temp_agreemnt) ; 
fcagreemntrec ) ; 


iostat = 0; 

iostat = reset_file9 (fd_agreemnt, 

iostat = exactkey9(fd_agreemnt, 

if (iostat < 0) { 

errrtn ("Can’t Find Agreement 
goto select; 

} else found = TRUE; 
do{ 



moveX(agreeno_save, agreemntrec . agreeno, 12); 

iostat = nextkey9(fd_agreemnt, 


Scagreemntrec) ; 


if (iostat == 0){ 


moveX(agreeno_save,agreemntrec.agreeno , 12); 

} 

} while (iostat == 0); 

selectinx9(fdagreemnt, 1); /* read 

using agreement number */ 

moveX(agreemnt rec.agreeno,agreeno_save,12); 
iostat - exactkey9(fd_agreemnt, 

fxagreemnt rec ); 

} 

if (Ifound) goto select; 

if (agreemntrec.netdue != 0.0) { 

strcpy (errmessage,"This Agreement Has Already 


Been Closed ! 11 ) ; 
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errrtn(errmessage); 
goto se'lect ; 


return found; 


/*- 

get_contract _number 


get_contract number () 

{ 

wintype win; 
char number [20]; 
int key; 

win = windowopen (&manua I win); 

settitie (winContract Number“ ( CenterUpperTit1e); 
strcpy (number," " ) ; 

key = get_'line (number , 5 , 1 , 0 , win , “Contract Number -> " ) ; 
selectinx9 (fd_agreemnt,1); 
moveX (agreemntrec.agreeno,number,8); 
windowclose (win); 

} 

get_phone_number 

w W Wf M W M- M M tow V— —P — — w —I* *—* —- w W fc*- W W W Mr* W M W W W M ^ V MV W W# M V* W ^ Vr — MT V* W W W W W MM MV V* W " W n — - r 

get_phone_number () 

{ 

wintype win ; 
char number [20]; 
int key; 

win = windowopen ((vmanua 1 _win ) ; 

settit1e (win,"Phone Number",CenterUpperTitle); 
strcpy (number,” "); 

key " get _‘l ine_mask (number , 5 , 1 , 1 2 , win , ” Phone Number 

- - “); 

selectinx9 (f d_agreemnt* , 3 ) ; 
moveX (agreemntrec.curphoneno,number,12); 
windowclose (win); 

} 


*/ 


-> 


/*- 

display_no_batteries_update 

V# tar ta« IV tar W ta * W ta # W «V «V V k W W W tw WW W W tar M* M* w W W «V W «V W W V* W «■* Vtf hV ta« «M %V tav Mta 

display no_batteries update() 

{ . 

gotoxy (42,3); 

cprintf ("%-?.Of“,agreemntrec, nobatrent); 

} - 


- 


/* 
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get_batteries_update 

int get_batteries_update(wintype win) 

{ 

char s [ 2 0 ] ; 


int stat; 

itoa (agreemntrec.nobat rent,s,10); 

stat = get line (s,15,3,2,win,"Number of Extra Batteries: 

" ) ; 

while (lisdigit (s[0])){ 
if (Msdigit (s[0])) { 

strcpy (errmessage,"Must Be Numeric 0 - 9“); 

errrtn(errmessage); . 


Bat teries: 


stat = get 'line (s , 1 5,3,2 , win , 


agreemntrec.nobatrent = at of (s); 
return stat; 


Number of Extra 



- 

disp1ay_no_chargers_update 

_ _ _ * / 

void dispiay_no_chargers_update () 

{ 

gotoxy (42,5); 

cprintf ("%-2.Of",agreemntrec.nochgrent); 

> 


/* - 

get chargers_update 


*/ 


int get_chargers_update (wintype win) 

{ 

char s[20]; 


int stat; 




9" ) 


} 


itoa (agreemntrec.nochgrent,s,10 ) ; 

stat = get_1ine (s,15,5,2,win,"Number of Chargers : 

while (lisdigit (s[0])) { 
if (lisdigit (s[0J)) { 

strcpy (errmessageMust Be Numeric 0 - 


} 


errrtn(errmessage); 

stat = get_iine (s,15,5,2,win,”Number of Chargers 


n 


) 


} 


agreemntrec.nochgrent = atof (s); 
return stat; 
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/*- 

displ ay_scr1_update() 

----* j 

void display_scr1_update() 

{ 

gotoxy (15,3); 

cprintf ("Number of Extra Batteries:"); 
gotoxy (15,5); 

cprintf ("Number of Chargers : " ) ; 

} 


display_values_scr1_update() 


void display_va1ues _sor1_update() 

{ 

display_no_batteries_update () ; 
display_no_chargers_update () ; 


*/ 


show_agreemnt() 

-,- */ 

show_agreemnt() 

{ 

static wintype win; 
char s [80]; 
windef agreemnt win 

-{25,5,70,9,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Red}; 

win = windowopen (lvagreenint_win) ; 

settitle (win,”Contract Information",CenterUpperTitie); 
gotoxy (5,1); 

cprintf ("Agreement tt : "); 

cprintfN (agreemntrec.agreeno,12); 

gotoxy (5,2); 

cprintf ("Customer Name: "); 

cprintfN (agreemnt rec.oustname,2A); 

gotoxy (5,3); 

cprintf ("Portable # : "); 
cprintfN (agreemntrec.curphoneno,12); 

} 


/*- 

update screen 








Page 7 


UPOAGR.C 


*/ 

9 

update_screen (void) 

{ 

c ha r s [ 8 0 ] ; 
wintype upd_win,win; 
int FIELD = 1; 
int done,key; 

show_agreemnt(); 
done = FALSE; 

upd_win = windowopen (&update_win); 

settitle (upd_win,"*- Additional Equipment Changes 
-*",CenterUpperTitle); 

cursoron (); 
display_scn1 update(); 
display_values_scr1_update(); 
while (Idone) { 

switch (FIELD) { 

case 1; key = get_batteries_update (upd_win); 

brea k; 

case 2 : key = get_chargers_update (updwin); 

break; 

} 

if (UP _F I EL D) { 

if (FIELD > 1) { 

—FIELD; 

} else if (FIELD == 1) FIELD = 2; 

} 

if (DOWN _FI EL D) { - 

if (FIELD < 2) { 

++FJ.ELD; 

} else if (FIELD == 2) FIELD = 1; 

} 


if (key 
if (key 

} 

if (key 


been done!" ) ; 


" , CenterUpperTi t ~\ e) ; 


== FORCED EXIT) done = TRUE; 

I • 

== K _ F1) { 

he'l p_'l i stupdate (); 

== K_F2) { 

if (PRINTED_CONTRACT) { 

errrtn ("Can't cancel after printing has 

} else { 

win = windowopen (&errorwin); 
settitle (win," F2 - CANCEL! 

gotoxy (5,2); 


you sure (Y/N)?",FALSE)) { 


if (yes_no (“Changes will be LOST, Are 


centerPrint (60,"Wait A Minute 


While I Shut Everything Down!"); 


done 


TRUE; 
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*/ 


windowclose (win); 


(key == 
print_ 


K_F3) { 

update_agreemnt.(); 

contract (0,FALSE); /* Update contract 


printing == 0 


if (prt_error number != 0){ 

strcpy (errmessage,prt_error message); 
errrtn (errmessage); 

} else PRINTEDCONTRACT = TRUE; 


New Contract!"); 


here */ 


(key == K_F6) { 

if (!PRINTEDCONTRACT) { 

strcpy (errmessage, "You Need To Print The 


} else { 


errrtn(errmessage); 
update_agreemnt (); 

done = TRUE; /* never should get 


windowclose (win); 


/* 


he!piist_update: show command list 


—*/ 

help_list update () 

{ ■ 
wintype win; 
char c; 

win = windowopen (^commands win); 

settitle (win," Quick Step Help “,CenterUpperTitie); 
gotoxy (1,2); 

cprintf (" STEP"); 

gotoxy (1,3); 

cprintf (" -" ); 

gotoxy (1,5); 

cprintf (" 1 - Change Rental Information" ); 

gotoxy (1,6); 

cprintf (" 2 — Press F3 To Finish"); 

gotoxy (1,7); 

cprintf (" 3 - Press F6 To Exit"); 

gotoxy (1,8); 
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cprintf (“ 4 - You’re aVI done!") 

gotoxy (1,10); 

cprintf (" ESC - EXIT "); 

while ((c = getch ()) != K_ESC) ; 

windowclose (win); 
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/* _ _ _ : __ 

MODULE : whatend.c Ending agreement 

PURPOSE: To Monitor what has been done and what still remains 

to be done. This information will help hold the employees 
hand during a session. 


Written By: Greg McGregor 1990 

REVISED: What was revised? 

GMM 7—30—1991 Nothing 


Hindude 
Hinclude 
H i n c 11. .i d e 
Hi no 1ude 
Hinclude 
Hinclude 
Hind ude 
Hinclude 
Hinclude 


<stdio.h> 
<stdlib.h> 

<time.h> 

<windows.h> 
<gbase.h> 
<get1ine.h> 
<extnvar.h> 
<extscrns.h> 
<gkeys.h> 



fldefine STEPS_END 7 
/* 

* GLOBALS 
*/ 

int w_.1og_tab1e[STEPS_END+1 ]• /* +1 is overflow space */ 

int w in it = FALSE; 


/* 


• * 


w_log end r log an event done 
-* / 

w_log_end (int event) 

{ 

int i; 

if (!w_init) { 

for (i-0;i<STEPS_ENQ;i++) 

w_'I og_t ab'l e [ i ] = FALSE; 
w in it = TRUE; 

> 

/* now iog it done */ 
w_iog_table[event-1J = TRUE; 

} 


/* 


w_init_end : init ‘log 


J 











r‘'?>. -. -I-:. . ...a^n/g-■■-- 


:2 £mr.v. 

r rv£r ' 


if » 'k ^ * J F fV ' ♦ ' J r / *,,•»♦*' f . t_ t k * *' fc.*- . '^1, F* ,J t? 

«L, Og-VA »Mft^2a2a3^>..-'.: ..V- ■•^■V?-*^ 


^#4-. 


rfr-jy 


:*WC2JG> 
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- */ 

/ 

w_ini t 
int i; 


end () { 


for (i= 


w i n 11 


0;i<ST E PS_EN D;i++ ) 
w_1 og_tab1e[i] = FALSE; 
= TRUE; 


w next end : what is 'left to do 


*/ 


w_next_end (int 

{ 

int i,do_next; 
char c; 


*FI ELD) 




do_next = -1; /* ERROR */ 

note_wt — windowopen (&note_win); 

settitle (note wt , “What To Do Next!",CenterUpperTit1e) 
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*FIELD = 2; 


break; 

case 5 : centerPrint (60,"Press E3 - For Credit 
Authorization!"); 


break; 

case 6 : centerPrint (60,"Press F5 - To Print Receipt! 

break; 

case 7 : centerPrint (60,"You are all Done! Press F6!" 

break; 

} 

gotoxy (1,4); 

centerPrint (60,"Press ESC to Exit"); 
while ((c = getch ()) != KESC) ; 

windowclose (note wt); 



/* 


w_is_logged_end: is something done or logged 


- */ 

int w_is_logged end (int event) 

{ 

return w_log_table[event-1]; 

} 

/* - 

w is next end: return wfiat to do next 


— */ 

int w_is_next_end () 

{ 

int i ; 
int step; 

step = EX IT_ST EP; /* exit step */ 

for (i=0;i<STEPS_END;i++) 

if (w_log_tab!e [i] =- TRUE) 

step = i ; 

return (step+2); /* next step to do, log table is step-1 format */ 

/* so return step + ?.'*/ 


} 
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/* - :_:_ 

9 

MODULE: whatopen.c 

PURPOSE: Isa modu"Ie t hat keeps t rack of what an empl oyee has done 

versus what is left to do on the initial agreement 

Written By ; Greg McGregor 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 


- */ 


ttinc'l ude 
ttinclude 

# i n c 1 u d e 
ttinc1ude 
#i nc '1 ude 
tti nc 1ude 

# i n c 1 u d e 
Itinclude 


<stdio,h> 

<windows.h> 

<g keys.h> 

< m i s c . h > 

<time.h> 

<\h?\hdr\get 'I i ne . h> 
<\h2\hdr\gbase.h> 
<\h2\hdr\extnvar.h> 


/* vars for W ? type */ 


^define W_MAX_STEP3 15; /* how many steps above */ 

struct w_log_struct { 

int account log[20]; /* add extra room for no pointer probs */ 

}; 

struct w_log_struct w_1og_account; 


init.l og open 


/ 

init_1og_open () 

{ 

inti; 

for (1=1;i<=15;i++) 

w_l og_account.account_log[i] = FALSE; 


/* 


w_log : log a step done! 


void w_log_open Cint step) 

{ 

w_log_account.account_log[step] = TRUE; /* log it as completed 

*/ 

} 
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/* -- 

w_is_logged_open : is something logged :PREDICATE 


_*/ 

int w_is_logged_open (int what) 

{ 

return (w_log_account.account log[what)); 

} 


/* - ; _ 

what_next open : start the what next process 


—*/ 

int what_next_open () 

{ 

wintype win; 
i nt i,done; 
char ch; 

done = FALSE; 
i = 1 ; 

while (!done) { 

if (!w_log account.account_1og[i]){ 
switch (i) { 

easel: 

win = note ("Phone Initialization NOT Completed! 

PRESS <ESO <F4>"); 

done = TRUE; 
break; 
case ? : 

win = note ("Credit Authorization NOT Obtained! 

PRESS <ESC> < F3 > " ).; 

done = TRUE; 
break; 
case 3 : 

win = note ("Enter Customer Name!"); 
done = TRUE; 

I * 

break; 
case 4 : 

win = note ("Enter Customer's Credit Card Number 

done “ TRUE; 
break; 
case 5 : 

win = note (“Enter Credit Card Expiration Date!" 

) ; 

done = TRUE; 
break; 
case 6 : 
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win = note ("Enter Customer's Driver's License 

Number! " ) ; 

done = TRUE; 
break; 
case 7 : 

win = note ("Enter Customer’s Home Address!"); 
done = TRUE; 
break; 
case 8 : 

win ~ note ("Enter Customer's Home City!"); 
done = TRUE; 
b r ea k ; 
case 9 : 

win = note ("Enter Customer's Home State!"); 
done = TRUE; 
break; 
case 10: 


win = note ("Enter Customer's Home Zip Code!") 
done = TRUE; 

. break; 
case 11: 


win - note ("Enter Customer's Home Phone!"); 
done = TRUE; 
break; 

case 12: 


customer’s local phone number!"); 


expected rental return date!"); 


win = note ("Must enter 

done = TRUE; 
break; 

case 1 3 : 

win = note ("Must enter 

done = TRUE; 
break; 

case 14: 


win - note ("Must tell customer about LOW!"); 
done = TRUE; 

hrea k; 

case 15: 

win = note ("Press <F5> key to Print Receipt!" 
done = TRUE; 
break; 
default : 

win = note ("Press <F6> to Exit. You are all 

DONE!"); 

done = T RUE; 
break; 

) /* end switch */ 

gotoxy (1,3); 

centerPrint (60,"Press <ESC> to Clear message"); 
do { 

ch = getch () ; 

} while (ch != K_ESC) ; 
windowclose (win); 


/ 
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} 


} /* end if 

+ + i ; 

if (i > 16) 
/* ends while loop */ 


*/ 

/ 

done 


TRUE ; 



1- 1 i ' ■T' JJUI ■■ ■ 










U>h' 
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/*- 

MODULE: CTI_C0M 


, -, 4 - r'icr +■ hp core functions 

This module contains inc 

to the CTI in interrupt mode. 


for reading and writing 


Written By: 


Greg McGregor 


Revisions: 


—*/ 


/* 

* include files 

*/ 

ttiriclude < s t d i o.h> 
ttinclude <stdlib.h> 
ttinclude <string.h> 
ttinclude <time.h> 
ttinclude <dos.h> 
ttinclude <bios.h> 
ttinclude <conio.h> 


ttinclude <rtb.h> 
ttinclude <cti_com.h> 
ttinclude <windows.h> 

ttinclude < m i s c . h > 

/* 

* Greenleaf includes 
*/ 

ttinclude "gf h 
ttinclude "as 1 ports 
ttinclude “ibmkeys.h 


ttdefine FALSE 0 
ttdefine TRUE 1 


/*- 

* Procedure Name: send_char_ct1 

* Parameters: cti_obj, char c 

* Function: send a char via a- 

* Returns: TRUE, FALSE 


wait on 


t ransmit 


buffer 


* 

’*• IaI A +■ ta r\ 


Rw ? Greci McGregor 
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-*/ 

int send_char__ct i (cti_obj *cd, char ch) { 
i n t s t a t ; 

stat = asiputc (cd~>port,ch); 
if (stat < 0) return FALSE; 
stat = wait_transmit_buffer (cd); 
return stat; 

} 

--- 

* 

* Procedure Name: get_char_cti 

* Parameters: ct1_obj 

* Function: get char from serial port, CT I on timeout basis 

* Returns: the CHAR gotten <0R> -1 for failure 

* 

* Written By: Greg McGregor 
_*/ 

char get_char_cti (cti_obj *cd) { 

Int stat; 
int ticks =0; 

while (ticks < cd->time_out*TICKS_PER_SECOND) { 
stat = asigetc (cd->port); 
if (stat >= 0 ) return ((char)stat); 

timer (1); /* 54.9 ms V 

++ticks; 

} 

return - 1 ; 

} 


* _ 


* procedure Name: set_up_cti_object 

* Parameters: • , . • . 

* Function: set port, baud, buffer, time out for communication 


* Written By : Greg McGregor 


* - 


void set_.up_cti_object (cti_obJ *cd,long int baud, int port, int 

buff_size, int time_out) { 

cd->baud = baud; 
cd->port = port; 
cd->buff_size = buff_size; 
cd->time_out = time_out; 
return; 
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/* --- 

/ 

* 

* Procedure Name: set_cti_timeout 

* Parameters: 

* Function: 

* 

* Written By: Greg McGregor 

* - 

*/ 

void set w cti_timeout (cti_obj *cd, int time-out) { 

cd™>time_out = time-out; 
return; 

} 

- 

* 

* Procedure Name: set_cti_send_count 

* Parameters: 

* Function: 

* 

* Written By: Greg McGregor 

* --- 

*/ 

void set_cti_send_count (cti_obj *cd, int count) { 
cd">send_count ~ count; 
return; 

} 


/* -- - 

* 

* Procedure Name: set_cti_rec_count 

* Parameters: 

* Function: 

* 

* Written By: Greg McGregor 

* - 

*/ 

void set_cti_rec_count (cti_obj *cd, int count) { 

cd~>rec_count = count; 
return; 

} 


/*-— 

* 

* Procedure Name: set_cti_command 

* Parameters: 

* Function: 

* 

* Written By: Greg McGregor 

* - 

*/ 

void set cti_command (cti_obj *cd, int command) { 
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cd->command = command; 
return ; 


/*- 

* 

* Procedure Name: set_cti_buffer 

* Parameters: 

* Function: 

* 

* Written By: Greg McGregor 

* ___ 

*/ 

void set_cti_buffer (cti_obj *cd, char *buff) { 

cd->buffer = buff; 
return; 


/* --- - 

x 

* Procedure Name: 

* Parameters: 

* Function: 
x 

* Written By: Greg McGregor 

x _ 

*/ 

/* 

x 

*set__cti_send_ buffer 
*/ 

void set_cti send_buff er (ct1_obJ ■ *cd, char *buff) { 

cd->command bytes = buff; 
return; 

} 


/x --- 

X 

* Procedure Name: open^cti_port 

* Parameters: 

* Function: 

* Returns : 

* 

* Written By: Greg McGregor 

* Revised By: Ted Watler 

* Comments By Greg McGregor: 

* In talking with Greeleaf software, you should not use 

* asif1ow and asicheck together; however, it hasn’t failed 

* so what aint broke I'm not fixin. 


-*/ 

int open_cti port (cti obj *cd) { 
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int stat; 


if ( (stat = asiopen 

(cd->port , AS INOUT | BINARY | NORMAL. RX,cd-> buff size, cd-> buf f _si ze, cd->baud , 
PNQN 

E,1,8,ON,ON)) == ASSUCCESS ) 

if ( (stat = asiflow(cd->port, 1, 99, ON, ON)) ! = 

ASSUCCESS ) 

stat = asiquit (cd->port); 

else { 

asicheck(cd->port , CTS_l. OW_STOPS_TX_INTERRUPTS, 
asiclear(cd->port,AS INOUT); 

} 


ON) 


/* 


return(stat); 


* Procedure Name: close_cti 

* Parameters: 

* Function: 

* Returns: < 0 failure 


_port 


* Written By: Greg McGregor 


-*/ 


int close cti_port (cti_obJ *cd)' { 

return asiquit (cd->port); 

} 


/* 


* Procedure Name: do_cti_command 

* Parameters: 

* Function: 

* Returns: 

* 

* Written By: Greg McGregor 


-*/ 

int do_cti 
int stat; 
int cmd; 
int trys = 


command (cti obj ^command) { 


/* give each command 2 trys to succeed */ 


while (trys <=. 2 ) { 

stat = doctifuric (command); 

/* don't do check for command success after these commands */ 
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if (command->command == POWER_DOWN) return ( stat ) ; 

pause_execution (?); /* wait x tenths of a second */ 

cmd = command~>command; 

set_cti _command (command , IN_CT.l ) ; 

stat = do_cti_func (command); 

set_cti command (command,cmd); 

asiclear (command->port,ASINCUT); /* clear ports after 

successful command */ 

++trys; 

if (stat) return TRUE; 

/* stat is false here .*/ 

set_cti_command (command,TURN ON); /* if failed need to turn o 

n*/ 

do ctifunc (command); 
set_cti_command (command,cmd); 

} 

if (stat == FALSE) { /* attempt to turn cti off */ 

set_ct1_command (command,POWER_DOWN); 

do cti func (command); 

} 

return FALSE; 

} 


/*- 

* 

* Procedure Name: pause_execution 

* Parameters: tenths seconds 

* Function: ANSI comp 

* Returns: NONE 

* 

* Written By: Greg McGregor 



void pause_execution (int tenthssecs) 

{ 

clock_t start,current; 

start = clock (); 
current = clock (); 

while ( (((int)(current - start)*10) 

current = clock (); 

return; 


} 


/ CLK TCK) 


< tenths secs) 


/* - 

* 

* Procedure Name: wait transmitbuffer 

* Parameters: 

* Function: HARDWARE DEPENDENT TIMEOUT! 

* Returns: TRUE, FALSE (True if buffer emptied ) 

* 
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* Written By: Greg McGregor 


_*/ 

int wait_transm1t_buffer 
int stat = TRUE; 
long int i = 0; 
clock t start,end; 


(cti_obj *cd) { 


start = clock (); 
while (stat) { 

if (istxempty (cd->port)) { 

Stat = FALSE; 

} else stat = TRUE; 

++i; /* can't use clock other end times out at 

3 ms */ 

if ( (!istxintrunning (cd->port)) && (iscts (cd->port,IMMEDIATE 

)) ){ 

asiresume (cd->port,ASINOUT); 

> 

end = clock (); 

if ( ((end - start )/CL.K_TCK) >= cd->t i me_out) { 

return FALSE; 

} 

} 

return TRUE; 

} 


/*• 

* 


* Procedure Name: send_cti_data 

* Parameters: 

* Function: send data in command 

* Returns: TRUE, FALSE 

* 

* Written By: Greg McGregor 


bytes field 


-*/ 
i nt 
int 


} 


send_cti_data (cti_obj *cd) { 

i ; 

for (i=0;i<cd->send_count;i++) { 
if (!send_char_cti (cd,cd->command_bytes[i])) 
return FALSE; 

} 

return (i ) ; 


/* 

* 


* Procedure Name: get_cti_data_timed 

* Parameters: 

* Function: get X bytes based on time out 







Page 7 


CTI COM.C 


♦Returns: FALSE <OR> number of bytes gotten 
* 

* Written By: Greg McGregor 


_*/ 

int get_ct i _data_t i med (cti obj *cd) { 
int i ; 

int stat = 0; 
int count =0; 

i = 0; 

if (cd~>rec_count == -1) { /* get as many bytes as possible */ 

while (stat >= 0) { 
stat = (int)get_char_cti (cd); 
if (stat == -1) return FALSE; 
cd~>buffer[i] = (char)stat; 


+ 4-1 ; 

cd->rec_count = i; 

} 

cd->buffer[i] = ' \ 0 ' ; 

} else { 

while (i < cd->rec_count ) { 

4-4-count ; 

if (count >= 9 ) { 

c1rsc r ( ) ; 

cprintf (“-* Got %d of %d Data 

Bytes",1,cd->rec_count); 

count = 0; 

> 

stat = (int)get_char cti (cd); 
if (stat = = —1) return FALSE; 
cd->buffer [ i] = (char)stat; 

++i ; 


} 


> 

cd~>buffer[i] = '\0'; /* end string with a null 

} 

clrscr (); 

cprintf ("-* Got %d of %d Data Bytesi,cd->rec_count); 
cd->rec_count_got = i; /* set number of bytes we got */ 

return (i); /* the number of bytes we got */ 


*/ 


/*- 

* 

♦ Procedure Name: do_cti_func 

♦ Parameters: 

♦ Function: do the cti command 

♦ Returns: TRUE, FALSE on success or failure 

♦ 

* Written By: Greg McGregor 

MV* MV MM MW MW M* WM MW MM MW M# *M M4 M •* M* ■■ ^* MM M« 

-*/ 

/ 

int do cti_func (cti_obj *cd) { 
int stat; 
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i n t c h; 
int statch; 

switch (cd-->command ) { 


case SEND_TIME_DATE: 

cd->send_count = 8; 

if (!send_char_cti (cd,SEND_TIME_DATE)) return FALSE; 
if ( (stat = send_cti_data (cd)) < 0) return FALSE; 

return TRUE; 
case TURN OFF r 

if ( ! send char cti (cd,TURN OFF)) return FALSE; 
timer (44); /* do a 3 second even though doesn't 

matter*/ 

return TRUE; 
case P0WER_D0WN: 

if (!send_char_cti (cd , POWER_DOWN)) return FALSE; 
timer (44); 
return TRUE; 
case TURN ON r 

if ( ! send_char_cti (cd,TURN_0N)) return FALSE; 
timer (44); /* wait 3 seconds before return */ 

/* to ensure phone, is up and running */ 

return TRUE; 
case LQCKPHONE: 

if ( ! send_char_ct i (cd,L0CK_PH0NE)) return FALSE; 
timer (44); /* wait 3 second for reboot of phone */ 

return TRUE; 

case UNLOCK PHONE: . 


*/ 


if (!send_char_cti (cd,UNL0CK_PH0NE)) return FALSE; 
timer (44); /* wait 3 second for reboot of phone */ 
return TRUE; 
case RESET_P0INTER; 

if (!send_char_cti (cd,RESET_POINTER)) return FALSE; 
return TRUE; 
case RESET CAL L OTR: 

if (!send_char_cti (cd,RESETCALL_CTR)) return FALSE; 
return TRUE; 
case RESET_METER: 

if (!send_char_cti (cd,RESET_METFR)) return FALSE; 
return TRUE; 
case GET_NUM8ER: 

ch = GETNUMBER; 
cd->rec covmt = 6; 


/* 6 bytes for phone number 


break; 
case GETINFO: 

ch = GET INFO; 


/* rec count set externally in 


realtime.c */ 


/* CTI firmware comp. 8-23-1991 */ 
if (!send_char_cti (cd,ch)) return FALSE; 
if (!send_char_cti (cd,(char)(cd->rec_count & 

0x00FF))) return FALSE; 

if (!send_char_cti (cd,(char)((cd->rec_count>>8) & 
(OxOOFF)))) return FALSE; 

stat = get_cti_data_timed (cd); 
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date data */ 


can */ 


*/ 

*/ 

not in cti*/ 
out on getc */ 


if (cd->rec_count_got != cd->rec_count) return FALSE; 
return TRUE; 

case 6ET_TIME DATE; 

ch = GET_TJ.ME_DATE; 

cd->rec_count =8; /* 8 bytes for time and 

break; 

case GET_SERIAL: 

ch = GETSERIAl ; 

cd->rec_count = -1 ; /* -1 get as many as you 

break; 

case GETVERSION; 

ch = GETVERSION; 
cd--> rec_coun t = 12; 
break; 

case GET_NOVA_VER: 

ch = GET _NOVA_VER; 
cd->rec_count = -1 ; 
break; 

case GET_MBC_VER: 

ch = GET_MBC_VER; 
cd->rec_count = -1 ; 
break; 

case READMETER: 

ch = READ _METER; 
cd->rec count = 8; 
break; 

case NUM8ER_CALLS: 

ch = NUMBER_CALLS; 
cd->rec_count = 2; 
break; 

case GET_POINTER; 

ch = GET_POINT ER; 
cd->rec_count = 2; 
break; 

case IN _CTI : 

/* status bits send back */ 

/* bitO = IN CTI */ 

/* bit 1 = TRANSFER TIME OUT */ 

/* bit2 = COMMAND FAILED TIME OUT */ 


if ( ! send char 

_ct i 

(cd,IN CTI)) 

return 

FALSE; 

stat _ch 

— 

get 

char_cti (cd); 



if (stat_ch 


?)~ 

{ cd->error_code=2; 

/* bit 1 on 

} else 






if (stat_ch 


4) 

{ cd->error_code=3; 

/* bit 2 on 

} else 






if (stat_ch 

* TTZT 

0) 

{ cd->error_ 
« * 

code~0 

; /* phone 

} else 
if (stat_ch 


-1 ) 

{ cd->error_ 

code=4 

; /* timed 
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} else if (stat_ch & 0x01) cd->error_code 

no error */ 

if (cd->error_code == 1) return TRUE; 
return FALSE; 

} 

if (!send charcti (cd,ch)) return FALSE; 
stat = get_cti datatimed (cd); 
if (stat > 0) return TRUE; 
return FALSE; 
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— — - — - — -- —----— 

MODULE t Dates.c 
Written by PRO-C 

REVISED: What was revised? 

- 0MM 7-30-1991 Modified it back in 1990 


*/ 


int day_tab[][ 

{ 

{0, 31; 28, 
{0, 31. 29, 

} ; 


3] = 

31,30, 
31 . 30 , 


31, 30, 

31, 30, 


31, 31, 

31, 31, 


30, 31, 

30, 31, 


30, 31 } , 

30 , 31 > 


yxxxxr c j a ^- es c ^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

** / 

/* 

*/ 

/ 

/* PRO-C - Copyright (c) 1988 Vestronix Jnc. 

*/ 

/* 18 OCT 88 

*/ 

/* 

*/ 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XX / 

/* 

* PRS 

x Tuesday the 11th of October 1988, about a quarter past four in the 
afternoon. 

* Date io routines — get date fmt_date and is_date 

* see end for documentation. 

*/ ' ' 


ft include <stdio.h> 
If include <ctype.h> 
ff include <time.h> 
ft include <bench.h> 


/* Function prototypes */ 
tf ifdef ANSI 


static 
static 
static 
static 
static 
static 
static 
static 
static 
static 
static 


int al pha_month(char *); 
int daym(int ,char *); 
int dtype(int ,char *); 
int get_day(void); 
int get_month(void); 
int get year(void); 
int hour(int .char *); 
int minute(int ,char *); 
int monname(int .char *); 
int wday(int .char *); 
int ynum(int .char *); 
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static void stradd(char *,char *); 
static int week_day(int, int, int); 
It else 

static int alphamonth(); 
static int daym(); 
static int dtypeQ; 
static int get_day(); 
static int get_month(); 
static int get_year(); 
static int hour(); 
static int minute(); 
static int monname(); 
static int wd a y ( ) ; 
static int ynum(); 
static void stradd(); 
static int week_day(); 

# end if 


static char buf[81]; /* Returned, so overwritten everytime */ 

#def ine DATELEN 6 

char *bptr; /* Pointer into the date buffer */ 

/* dstr must be YYMMDD */ 
char *fmt_date(dstr, mask) 

char *dstr, *mask; 

{ 

struct tm tim, *tptr, *localtime(); 
int i ; 

char specials [8); 

strcpy(specia 1s, "DTMYW"); /* Format characters */ 
bptr = buf; 

if ( dstr == NUlL || *dstr == *\0’ ) { 

/* get today's date */ 
long secs; 

secs = time((long *)0); 
tptr = 1 oca 11 i me( 8<secs ) ; 

strcat(specia 1s, "HN"); /* allow weekdays and time */ 

tptr->tm_mon++; 

} else { 

/* 

*Check the date, but not much. 

* Allow for non_NULL terminated string (dstr), 

* but it MUST have space for DATELEN (6) chars 

*/ 

*buf = '\0'; 

for (i =0; i < DATELEN; i++) { 

if ( ! isdigit(dstr[i] ) ) { 

if (dstr(i] == ' ' ) 

dst r Li ] = 1 ' ; 
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} 

buf [i'J 


} 

buf[DATELENJ 
tptr = &tim; 
/* 


else { 

buf [i] = '\0' ; 
return(buf ) 

} 


= dstr[i]; 
’ \ 0 ’ ; 


tptr->tm_mday = atoi(&buf[4]); 
bu f [ 4 j = ' \ 0 ' ; 

tptr->tm_mon = atoi(&buf[2]); . 

buf[2] = ’\0'; 

tptr->tm_year = atoi(buf); 

*/ 

sscanf(buf, "%2d%2d%2d", &tptr->tm_year, &tptr->tm_mon, 

&t pt r-->tm_mday ); 

/* If its complete garbage then return the input string */ 
if (tptr->tm_mday < 1 || tptr->tm_mday >31 || 

tptr~>tm mon <1 II 


> 99) 


tptr->tm mon > 12 || tptr->tm_year < 0 || tptr->tm_year 

return(buf ) ; 
tptr->tm_wday = 0; 


*buf = ’\0'; 
while (*mask) { 

if ((*(mask + 1) == *mask ) && strchr(specials, *mask)) { 

switch (*mask) { 
case 'W' : 

if (tptr->tm_wday == 0) 

tptr->tm_wday = 
week_day(tptr->tm_year, 

tptr->tm mon, tptr->tm mday); 



mask += wday(tptr->tm_wday, 
break; 

mask) ; 

case 

' H ' * : 



mask += hour(tpt r*->tm_hour, 
break; 

mask) ; 

case 

' N 1 ; 



mask += minute(tptr->tm_min, 
break; 

mask ) ; 

case 

1 D’ : 



mask += daym( t pt r->tm__mday, 
break; 

mask) ; 

case 

' T 1 : 



mask += dtype(t pt r*-*>tm_mday, 

mask) ; 


break; 


case 

' M 1 : 



mask += monname(tptr->tm_mon 
break; 

, mask) 

case 

' Y 1 : 
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} 


} else 
} 

} 

return(buf ) ; 


mask += ynum(tptr->tm_year, 
break; 

} 

{ 

*(bptr++) = *(mask++); 


mask) ; 


/* Put these into bench.c and just use fields of 3 for Tue etc, GEO */ 
char *1dayname[10] = { 

’’Sunday'', "Monday", "Tuesday", “Wednesday", "Thursday", 
"Friday", "Saturday" , "???’’ }; 


{ 

"Tue”, "Wed", "Thu", 

"" \ . 

■ ■ * i i 


int wday(day, mask) 
day; 

*mask; 

int nWs ; 

for (nWs = 0; *mask == ' W f ; mask++) 

nWs + +; 
switch (nWs) { 
case 0 : 

return(nWs); /* gash input */ 
case 1 : 

*bptr++ = *W' ; 

*bptr = '\0 1 ; 

return(nWs); /* gash input */ 
case?: 

*bptr++ = (day / 10) + ^0'; 

*bptr++ = (day % 10) + ' 0 f ; 

*bpt r = ‘\0 1 ; 

return(nWs) ; 
case 3 : 

case 4 ; 

case 5 : 

case 6 : 

case 7 : 

case 8 : /* treat ail like 3, ignore trailing W's */ 

stradd(bptr, day^name[day]); 
bpt r += 3 ; 
return(nWs); 
default : /* >= 9 */ 

stradd(bptr, 1 day name[day]); 

bpt r += st r1en(1dayname[day]); 


stat i c 
i nt 
char 
{ 


char *day_name[] ~ 

"Sun" ( “Mon 11 , 
"Fri" , M Sat", 
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} 


return(nWs); 



static int daym(mday, mask) 
int mday; 

char *mask; 

{ 

int nDs; 

for (nDs = 0; *mask == 'O'; mask++) 

nDs++; 
switch (nDs) { 
case 0 : 

case 1 : 

return(O); /* gash input */ 
default : 

*bptr++ = (mday > 9) ? (mday / 10) + 'O' : 'O'; /*JH 

leading 0 if day is single digit.*/ 

*bptr++ = (mday % 10) + ' O'; 

*bptr = *\0'; 

return (2) ; 

} 

} 


static int hour(hr, mask) 
int hr; 

char *mask; 

{ 

int nHs; 

for (nHs = 0; *mask == 'H'; mask++) 

nHs++; 
switch (nHs) { 
case 0 : 

case 1 : 

return(O); /* gash input */ 
default ; 

*bptr++ = (hr / 10) + ’O’; 
*bptr++ = (hr % 10) + ’O’; 
*bptr = ’\0'; 
return (2); 

} 

> 


static int minute(mn, mask) 
int mn; 

char *mask; 

{ 


i nt 


nNs; 
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for (nNs = 0; *mask == 'N’; mask++) 

nNs++; 
switch (nNs) { 
case 0 : 

case 1 : 

return(O); /* gash input */ 
default : 

*bptr++ = (mn / 10) + ’O’; 
*bptr++ = (mn % 10) + 'O'; 
*bptr = ’\0’; 

return( 2 ) ; 

} 

> 


/* Put 
c ha r 


these into bench.c and 
smnth[][4] = { 


^ ^ II 

"Jan", 

Jun" , 

" J u 1 " , 

Nov" , 

"Dec" , 

???„ y . 


just 

Feb", “Mar" 
Aug", "Sep" 


use fields of 3 for Jan etc, 

"Apr", “May", 

"Oct" , 


GEO 


char 1 mnth[] [ 1 0] = { 

"January", "January", "February", "March", "April", "May", 
"June", "July", "August", "September", “October", 
"November", "December", 

it 7777777" } ; 


static int monname(mnum, mask) 
int mnum ; 

char *mask; 

{ 

int nMs; 

for (nMs = 0; *mask == ; mask++) 

r#ts++ ; 

switch (nMs) { 
case 0 ; 

return(0); 
x case 1 : 

/* crap input */ 

*bptr++ = 'M r ; 

return( 1 ) ; 
case 2 : 

*bptr++ = (mnum / 10) + 1 O'; 
*bptr++ ” (mnum % 10) + *0’; 
*bptr = ’\0’; 

return(2) ; /* gash input */ 
case 3 ; 

case 4 : 

case 5 : 

case 6 : 
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case 7 : 

case 8 : /* treat a'll like 3, ignore trailing W's */ 

stradd(bptr, smnth[mnutn] ) ; 
bptr += 3; 
return(nMs); 
default : /* >= 9 */ 

stradd(bptr, 1 mnth[mnum] ) 
bptr += str len( lrnnth[mnum] ) ; 
return(nMs); 

} 

} 


/* Interesting all this */ 
char ntype[][3] = { 


??" 

i 









St " 

, "nd" , 

"rd" . 

"th", 

" t h “ , 

"th" , 

“th" , 

"th" , 

“th" , 

"th 

th" 

, " t h" . 

H t h " , 

" t h" , 

" t h" , 

"th" , 

" t h " , 

"th" , 

" t h" , 

"th 

st *' 
st" 

, "nd", 

}; 

"rd" , 

“th" , 

"th" , 

"th" , 

"th" , 

"th" , 

1 * 

“th" , 

"th 


int dtype(mday, mask) 
mday; 

*mask; 

int nTs; 

for (nTs = 0; *mask == * T’; mask++) 

nTs++; 
switch (nTs) { 
case 0 r 
case 1 : 

return(O); /* gash input */ 
default : 

stradd(bptr, ntype[mday]); 
bptr += strlen(ntype[mday]); 
r et u r n ( 2 ) ; 

} 

} 


static 
int 
c har 

{ 


static 
int 
char 
{ 

for (nYs = 0; *mask ~= 'Y'; mask++) 

nYs++; 
switch (nYs) { 
case 0 : 

case 1 : 

return(O); /* gash input */ 


int ynum(yno, mask) 
yno; 

*mas k; 

int nYs; 
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} 


case 8 : /* treat all like 3, ignore trailing 

stradd(bptr, smnth[mnum]); 
bptr += 3; 
return(nMs); 

default -,/*>=<)*/ 

stradd(bptr, 1mnthLmnum]); 

k pt r 4 = str len( I rnnt h [mnum'J ) ; 
return(nMs); 

} 


W 1 s 


*/ 


/* Interesting all this */ 
char ntype[][3] = { 

"??" , 

"st", "nd", 

" t h" , " t h" , 

"st", "nd", 

"st" }; 


ii 


it 


rd 

th 

rd 


ii 


n 


it 


H 


it 


th" , " th" , "th" , 

th", "th", "th", 

th", "th", "th", 


n 


ii 


th", "th", "th" , 
th" ," "th" , "th" , 
th", "th", "th", 


static int dtype(mday, mask) 

int mday; 

c ha r *mask; 

{ 

int nTs; 

for (nTs = 0; *mask == 'T 1 ; mask++) 

nTs++; 

switch (nTs) { 

case 0 : 

case 1 ' . 

return(0); /* gash input */ 

default : , m \ 

stradd ( bpt r , ntype LmdayJ ) ; 
bptr + = strlen(ntype[mday]); 
return(2); 

} 

} 


static int ynum(yno, mask) 
int yno; 

char *mask; 

{ 

int nYs; 

for (nYs = 0; *mask == 'Y'; mask++) 

nYs++; 


"th" 
"th" 
" th" 
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case 2 : 

case 3 : 

*bptr++ = (yno / 10) + 'O'; 

*bptr++ = (yno % 10) + 'O'; 

*bpt r = ’\0' ; 

return(nYs); 
default : 

*bptr++ = '1'; 

*bpt r++ = ' 9 ' ; 

*bptr++ = (yno / 10) + 'O'; 

*bptr++ = (yno % 10) + 'O'; 

*bptr = '\0'; 
return(nYs); 

} 

} 


/* stradd is similar to strcat, but assumes that si points to the END o 
f 

a string, ie the \0 ; */ 

static void stradd(s1, s2) 
char *s1, *s2; 

{ 

while (*s1++ = *s2++) 

i 

> 


char *get_date(dstr, dtype) 

char *dstr; 

int dtype; 

/* 

9 

* Where dstr is the (null-terminated) date_string to be converted, and 
dtype 

* determines the type of string it purports to be, see above definitio 
ns . 

*/ 

{ 

int yr, mnth, day; 

char retstr[80); 

if (dstr =- NULL || *dstr == ’\0') { /* null, get todays */ 

dtype = YMD; 

strcpy(dstr, fmt_date(NULL, “YYMMDD")); 

} 

bptr = dstr; 
switch (dtype) { 
case YMD : 

yr = get_year(); /* only 2 digits allowed if leading */ 

/* jh - 4 digits if leading */ 
mnth = get_month(); 
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99) { 


} 

static 

{ 


} 

static 

{ 


2 ‘ 
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day = get_day(); 
break; 

case MDY : 

mnth = get_month(); 
day = get_day(); 
yr = get_yean(); 
break; 

case DMY ; 

day = get_day(); 
mnth = get_month(); 
yr = get_year(); 
break; 

default : 

return(dst r ) ; 

} 

if ( yr <- 0 ) { /* get today's date */ 

struct tm *tptr, * 1 oca 11ime(); 

1ong secs; 

secs = time((long *)0); 
tptr = 1 oca Itime(&secs); 
yr = tptr->tm_year; 

} 

if (day <1 | | day >31 | | mnth <1 | | mnth > 1? | | yr <0 | | yr > 

return(dst r); 

} 

sprintf(retstr , "%0?d%02d%02d" , yr, mnth, day); 

return(retstr ) ; 


int get__day ( ) 
in t day; 

while (*bptr && !isdigit(*bptr)) 

bptr++; 
if (!*bpt r) 

return(0 ) ; 
day = *bpt r - '0'; 
bpt r++; 

if (isdigit(*bptr ) ) { 

day *= 10; 

day += *bptr -- 'O'; 

bpt r++; 

} 

returrt(day) ; 


int get_year() 

/* This is only for trailing years and allows four digits */ 
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i 

w- 

f 

5 . 

*• 

i 

t 


long year; 


} 


while (*bptr && !isdigit(*bptr)) 

bptr++; 
if ( ! *bptr) 

return( -1 ) ; 
yea r -= 0 ; 

while (isdigit(*bptr)) { 

year *= 10; 

year += *bptr - 'O'; 

bptrr+4-; 

if (year > 9999) 

return( -1 ) ; 

} 

if (year > 99) 

year = year % 100; 
return((int)year) ; 


t 


i 

1 

1 

0 


l 

» 

* 

t 


/* 

* Dig a month out of a string, fast for easy dates (1 1 88), effective 

* for stupid dates ( 1st of January 1988 ) 

* Return integer month, hopefully 1..12 but that is not checked here, 

* see isdate for validation (very fancy). 

*/ 

static int get_month() 

{ 

int month = 0; 


assume 


for (;;) { 

if (!*bptr) /* at end of bptr */ 

return(month); 

while (*bptr && !isa Inum(*bptr)) /* Find letter or digit */ 

bptr++; 

while (isalpha(*bptr)) { /* Try and find an alpha month */ 

if (month = alpha_month(bptr)) 

return(month); /* found Jan or something */ 


bpt r ++; 


} 

if (isdigit(*bptr)) { /* look for a digit month */ 

month = *bptr - 'O'; 

bptr++; 

if (isdigit(*bpt r)) { 

month *= 10; 

month + = *bptr - 'O'; 

bpt r++; 

} 

return(month); /* Found some digit or other, 


that's it */ 

} 

} 

/* NOTREACHEP */ 
return(month); 


so 
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c ha r 


mnth[][4] = { 
"Jan“, "feb", 
"jun", "jul" , 
"nov", "dec“, 


mar", "apr" , 
aug", "sep", 
000 " 


u 


may , 
oct" , 


static int alpha_month(mstr) 
char *mstr; 

{ 

int cl ; 


} 


for (cl = 0; cl < 3; Cl++) { 

if (*(mstr + cl) == '\0') 

return(0); 

if (isupper(*(mstr + cl))) 

*(mst r + cl) = tolower(*(inst:r + cl)); 

for (cl = 0; cl < 12; c1++) 

if ((*mstr == mnth[c1][0]) && 

(*(mstr + 1) == mnt h[c1][1]) && 

(*(mstr + 2) == mnth[c1][2] ) ) 
return(cl + 1 )• 

return(0); 


/* 

* Date must be since 1970. 

* There's a routine cal led Zeller’s congruence (.or something ) which 
would 

* be much better, but I've lost it. 

*/ 

static int week_day(year, month, day) 
int year, month, day; 

{ 

static int Juldays(] ={0, 0, 31, 59, 90, 120, 151, 181, 212, 243, 

273, 304, 334}; 

/*' Don't actually need these checks for this set of functions */ 
if (year > 99) 

year -= 1900; 
if ((year -= 70) < 0) 

return(7); /* Don't know */ 

return (( int)(( long )year * 365L + ( 1 ong ) (Ju'l days [month] + day + 3 + 

((year + 1) / 4) + (((year % 4) == 2) && (month > 2)))) % 

7 ) ; 

} 


** / 

| 

/* Procedure Name : .!SDATE 
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*/ _ 

/*-; 

“*/ , . . ___ s .f -in'. i<=: in the format DDMMYY. 

/* Check to see u nn n- 


*/ 

4 

f **** 

i nt 

i nt 
c ha r 


****** ************* * * * ** : * : ***** 




d a y __ t a b [ 3 L13 3 ; 

is date(in) 

<**■ 

*i n; 


i nt 
i nt 

for (i 


day, month, year; 

= 0; i < 6; i++) 

if (! 1 sdigit(in[i])) 

return(FALSE); 


,,, nr fli _ 'o') * 10) + (in [13 ~ ’O’); 

y ei "\ ! C /rinf?T - -O') * 10) + (in[3] - 

“' ■’((ilw - ■«■) * ’»> * < 1nC5] - 

/. The leap year bit bolow Is good up to *100. By which time 

if ( year > 99 I I year < O i l month < 1 II month > 12 II d y 


be 139. */ ^ yeap > 99 || year < 0 || 

|| day > day_tab[!(year % 4 ))[mont ]) 

return(FALSE); 
return(TRUE); 


I’ll 


< 1 


/* 

#if 0 

PR S Tuesday the 11th of October 1909. five to two In the afternoon. 

This attempts to ^crlbe how k ^* n d in?el 1 cl'tudes U (bugs) which will be 
work. There are a coupie 
fixed by friday. 

There are four aspect- t _ _ 11v 

1 How the date is stored internally. 

2 . How the date is entered by the user 

3. How the date is checked. 

4. How the date is displayed. 

1 A11 generated programs currently store dates as six characters, m 

the T . allows easy comparison / sorting, 

format YYMMDD. This allows easy i 

, hp (iprinner of a generated program may choose 
2. There are three ways the designer 

* 

to 

h«v/o dates entered : 
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Day-Month-Year (DMY) 

Month-Day-Year (MDY) 

Year-Month-Day (YMD) 

The default is YMD. There should be a way to change this default, b 
ut 

there isn't. To set the format, choose validation code 5. 

The function get_date() accepts user input and attempts to convert i 
t 

to the format YYMMDD. It does minimal validation, only enough to st 
op 

itself from crashing. 

It understands a wide range of date formats, so that if date format 

DMY 

has been selected then 

I .*♦ 

1 - 1-88 
1 / 1/88 
1 1 1988 

The 1st jan 1988. 

1st Jannwery year of our lord 1988 (sic) 

are all converted to 880101. Not e that with YMD in put, t he year can 

only be entered as two digits, not four, Anyone who cares to cons id 
er 

the algorythm necessary to convert 19880101 will understand why. 

3. The date is validated by the function is_date() which takes a string 
i n 

YYMMDD format. The method it uses for checking feb 29 works up to 

2100 . 

4, The date is displayed by the function fmt_date which takes a YYMMDD 
date and a format string (mask). 

The mask may contain arbitrary text, which is displayed unchanged, 
and 'special' formatting characters which will be converted. 

i 

PRO-C only allows entry of a 20 character mask, fmt_date accepts 
a mask of up to 80 characters. The date need not be nul1-terminated 

the mask must. If the date is null then today's date is used. 

Special characters are ? (N8 : Read MMMMMMMMM for M[+9] in all case 

s) 

D 

The first DD found will be replaced with the day number, eg 15. 

T 

TT following (perhaps after spaces) DD will be replaced with th, st 
nd, rd 

as appropriate. 

M 

Thee first M[+9J found will be replaced with the long month name. 
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The first MMM found will he replaced by the short month name, eg Ja 
n . 

The first MM found will be replaced by the month number, eg 01. 

Y 

The first YY found will be replaced by the two-digit year, eg 88. 
The first YYYY found will be replaced by the four-digit year, eg 

19 8 8 .' 

The following characters only work for today's date, ie a null date. 

W 

The first W[ + 9] found will be replaced by the long weekday name, eg 
Monday. 

The first WWW found will be replaced by the short weekday name, eg 
Monday. 

The first WW found will be replaced by the weekday number. Sun = 0 
H 

The first HH found will be replaced by the two-digit hour, eg 11. 

N 

The first NN found will be replaced by the two-digit minute, eg 11. 


ttend i f 
*/ 
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/* - : ___ 

MODULE: decphon.c 

USE: Decoding phone number from phone. 

STORED: Phone number is stored using a stupid formula consisting of 

6 bytes. 

Written 8y: Greg McGregor 
6 MM 1991 


REVISED; 

- GMM 7-30-1991. 

- GMM 8-10-1991 
rates 


What was Revised? 

Nothing 

Fixed Wild Pointer , phone number too long gene 
Jump to address 0x0000 base memory BAD 

-;-* f 


ttdefine TRUE 1 
ttdefine FALSE 0 

ttinclude <stdio.h> 
ttinclude <gkeys.h> 
ttinclude <rtbfunc.h> 
ttinclude <decphone.h> 


ttdefine 

bitO 

0 x01 

ttdefine 

bi 11 

0 x02 

ttdefine 

bit2 

0x04 

ttdefine 

bit 3 

0x08 

ttdef i ne 

bit 4 

0 x10 

ttdef ine 

bit5 

0 x20 

ttdefine 

bit 6 

0x40 

ttdef i ne 

bi t7 

0x80 

/* 



* 



main ( ) 

{ 



char phone [20] ; 
char data [20] ; 

[0] = 0x00; 

[1] = 0x20; 

[2] = 0x05; 

[3] ' = 0x65; 

[4] = OxF1; 

[5] = 0x50; 

decode phone (phone.data); 


data 

data 

data 

data 

data 

data 


} 
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/* - 

// Function Name -> decode_phone 
// Parameters: 

// Function: Decode the phone number of the phone 
// Returns: 

// Written By : Greg McGregor 

// 



int decode_phone (char *dest,char *src) { 

char area_code [10]; /* 10's to dissallow NMI problems */ 

char prefix [10]; 
char digits [10]; 
unsigned char bytes[10]; 


bytes [0] = src[0]; 
bytes [1] = src[1]; 
getareacode (areacode,bytes); 

bytes [0] = src[2]; 
bytes [ 1 ] = src[3]; 
get_prefix (prefix,bytes); 

bytes [0] = src[3]; 
bytes [1] = src[4] ; 
bytes [2] = src[5]; 
get_digits (digits,bytes); 

sprintf (dest, "%s-%s-%s“,area_code,prefix,digits); 
return TRUE; 


^ I ’^rt *ta* 'rtP .^rt tart tart Wrt tart W — m ta*» WP WP W HH* Wta tart W tart ■■■■* tart tart tart ta ■> »H ■ • <wi tart M rtta M rt P P^ta ta ■ -tart tart - 1—T i^rt tart i^rt rtrt tart rtta tart rtrt I J tart tart 

final^decode ; every 0 is counted as 10, 100, or 1000 depending 

on it’s place. after every op you must check next most sig 
number for = to 0. if so sub place value. (PAIN IN ASS) 

W WM ^(P w* tart tart tap «ta tart tart tap tart PM ^rt* tart tart ta^ tart tap tart ** tart tart rt* tap tart rt* tart «ta» tap tap tap trt tap tap *^taP ta« taP ta* «ta tart tart Prtrt taP «ta tart tart Pta tart tart ta* PH tart 

final_decode (int *n) { 

int x,sav; 

x = *n ; 
sav = x; 
if (x > = 


*/ 


1000 ) { 

if (x % 10 == 0) 


x = sav 
x -- x / 


sav = sav - 10; 

/* created a new number, check 
10; /* adjust place value */ 


this for zeros */ 


if (x % 10 == 0) 


sav = sav - 100; 


x = sav; 

x = x /100; /* look at hundredths p lace */ 

if (x % 10 == 0) 

sav = sav - 1000; 

} else 

if (x >= 100) { 

if (x % 10 == 


0 ) 
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} 


sav = sav - 10; 

x ~ sav; 
x = x / 10; 
if (x % 10 == 0) 

sav = sav - 100; 

} else 

if (x >= 1 0 ) { 

if (x % 10 == 0) 

sav = sav - 10; 

} 

*n = sav; 


/*- -- 

get_digits 

w H-* %*»» W •«* «<H M Mr W W H« Ml* W* W « W W W M «« w. M w w _ __ _ ^ _____ . __ _ ___ __.__ __. _ J 

get_digits (char *dest,char *src) { 
unsigned char c,c1; 
unsigned char first_digit; 
unsigned int n; 
unsigned char bytes[10]; 

c = src[0] ; 
c1 = src C 13 ; 

c = c & 0x03; /* nuke top 6 bits */ 
c = c << 2; /* shift left 2 */ 

c = c & 0x00; /* nuke bottom 2 bits if needed */ 

/* copy next fields upper 2 bits to variable 'c' */ 
if (cl &. bit7) 

c = c | b i 11 ; 
if (cl & bit6) 

c = c | bitO; 

/* 1st digit is now in BCD */ 
if (c == 0x0A) 

c=0; /* a = 0 in BCD */ 

first_digit = c + 'O'; 

/* now get other 3 digits */ 
c = src (1]; /* byte 2 */ 

c = c & 0x3F; /* nuke top 2 bits of field */ 

src [1] = c; 

bytes [0] = src[2]; 

bytes [1] = src [ 1]; 

l 

Xcopy (&n,bytes,?); 
n = n > > 4 ; 

n = n & OxOFFF; /* Nuke upper 4 bits */ 
n = n + 111;/* adjust for formula */ 
final_decode (Sen) ; 
if(n<100){ 

s pr i nt f ( dest , '* %c0%d " ,first_digit,n); 


} el se 
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if(n<10){ 

sprintf ( dest%c00%d",first_digit,n); 
} else sprintf (dest,"%c%d",first_digit,n); 
return; 


/* - 

get prefix 


getprefix (char *dest,char *src) { 

unsigned int n; 

unsigned char bytes [10]; 

n = 0; 

bytes [1] = src [0] ; 
bytes[0] = src[1]; 

Xcopy (&nbytes , 2 ) ; 
n = n > > 2 ; 

n = n & 0x3FFF; /* erase upper 2 bits */ 

/* prefix is summed.. ex.. (415) = number 304 in dec */ 

n = n + 111; /* part of formula to decode */ 

/* now dec = 415 as ex... */ 

final_decode (&n); 
sprintf (dest,"%d",n ) ; 
return; 

} 


get_area_code 

get_area_code (char *dest,char *src) { 
unsigned int n; 
unsigned char bytes [10]; 

n = 0; 

bytes [1] = src [0] ; 
bytes[0] = src[1]; 

Xcopy (&n,bytes,2); 
n = n >> 4 ; 

n = n & OxOFFF; /* area code is summed.. ex.. (415) = number 304 

in dec */ 

n = n + 111; /* part of formula to decode */ 

/* now dec = 415 as ex... */ 

final decode (&n); 
sprintf (dest, “%d", n); 
return; 

} 

Xcopy (char *dest,char *src,int ten) { 
int i ; 

for (i=0;i<1en;i++) 





22-tz 
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dest[i ] = src [i ] ; 


return ; 
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/*- 

MODULE: detail.c 

ENTRY POINT: show._detail () 

PURPOSE: Show call record detail with adjustments taxes etc. 

Written 8y : Greg McGregor 1990 
REVISED: What was revised? 

- GMM 7-30-1 991 Nothing ___ 

*/ 

^include <stdio.h> 

^include <gkeys.h> 

^include <windows.h> 

8include <time.h> 

^include <bench.h> 

.^include <proc.io> 
ttinclude <gbase.h> 

^include <agrio,h> 

Hindude <agreev3.h> 

Hinclude <extnvar.h> 

Hinclude <extscrns.h> 


show detail () 


/ 

show_detail () 

detail wt = windowopen (&detai1_win) ; . 

settit1e (detail_wt,"Detailed Billing Screen" .CenterUpperTitle); 

dcommands wt — windowopen (&dcommands_win) j 

set-title (dcommands _wt, "Commands" , CenterUpperTitle) ; 

show_commands (); 
use (detail_wt); 
show_detai1„scr (); 
do_detai1_entry (); 
windowclose (detai1„wt); 
windowcl ose (dconimands_wt) ; 

} 

show_deta11_scr ___* 

/ 

show_detai 1 _scr () 

{ 

use (detail_wt); 
clrscr (); 
gotoxy (2,2); 
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cprintf ("Rental Date t "); 

cprintf ("%s",agreemntrec.rentaldate ) ; 

gotoxy (25,2); 

cprintf ("Returned Date ; “); 

cprintf ("%s",agreemntrec.actrtndate); 

gotoxy (2,3); 

cprintf ("Rental Time : "); 

cprintf ("%s",agreemntrec.timeout); 
gotoxy (25,3); 

cprintf ("Returned Time : “ ) ; 

cprintf ("%s",agreemntrec.timein) ; 
gotoxy (2,5); 
cprintf ("Days Used : “); 

cprintf ("%-2.Of",agreemnt rec.daysused); 
gotoxy (15,7); 

cprintf ("Days Usage Charge : "); 

cprintf ("%~4.2f",agreemntrec.dlyphochg); 
gotoxy (15,8); 

cprintf ("Phone Usage Charge : "); 

cprintf ("%-4.2f",agreemntrec.minphochg); 
gotoxy (15,10); 

cprintf ("Unreturned Equip. Charge : "); 
cprintf ("%-4.2f",agreemntrec.equipchg); 
gotoxy (15,11); 

cprintf ("Adjustments t"); 

cprintf ("<%-4.2f>",agreemnt rec.adjustment); 
gotoxy (15,12); 

cprintf ("Discount % : "); 

cprintf ("%-3.Of".agreemntrec.discount); 
gotoxy (15,13); 

cprintf ("Subtotal : " ) ; 

cprintf ("%-4.2f",agreemntrec.subtotal); 
gotoxy (15,15); 

cprintf ("Total Tax t "); 

cprintf (“%-3.2f“,agreemntrec.total_tax); 
gotoxy (15,16); 

cprintf ( "---" ) ; 

gotoxy (15,17); 

cprintf ("Net Due : " ) ; 

cprintf ("%-5.2f",agreemnt rec.netdue); 

} 

/* - 

show_ca11 1isting () 


show_cal1_11sting () 

{ 

int ca11s,i,x,y; 
record_type *a_call; 
int min,max,P_continue; 
char c,key; 
int page,total_pages; 

~ 1 < 


page 
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P_continue = TRUE; 
x - 1 ; 
y = 3; 

calls = cal 1_rec.attached_records; 
max = calls; 
min - 1 ; 

if (calls > 10) max = 10; 
while (P_continue) { 

use (detail_wt); 
c 1 rscr (); 
gotoxy ( 1 ,2); 

cprintf ("CALLED Date Time Length Local Long D. 

Total"); 

X = 1; 

y = A ; 

for (i=min;i<=max;i++ ) { 

a_call = g_get_c,al 1 (cal l_rec, i) ; 
gotoxy (x,y); 

cprintf ("%s " ,a_ca11->number); 
gotoxy ( 14 , y ) ; 

cprintf ("%s",a_ca11->date); 
gotoxy (21 ,y); 

cprintf ("%s“,a_ca11->start_time); 
gotoxy (33,y); 

cprintf ("%d“,(int)a_ca11->1ength); 
gotoxy (37,y); 

cprintf ("%-4.2f",a_cal1->base_cost); 
gotoxy (44,y); 

cprintf ("%-4.2f“,a_cal1->1ong_dist_cost) ; 
gotoxy ( 5 1 , y ) ; 

cprintf ("%-4.2f",a_call->total_cost); 

++y ; 

> 

if (max == calls) { 

gotoxy (51,y); 
cprintf ("======"); 

gotoxy (35,++y);. 
cprintf ("TOTAL : "); 

gotoxy (51,y); 

cprintf ("%-4.2f“,total_rt b_bi11 ) ; 

} else { 

gotoxy (43,y+1); 

total_pages = calls/10; 

if (calls % 10) ++total_pages; 

cprintf ("Page %d of %d",page,tota1_pages ) ; 

} 

c = getch(); 

if (is_extended_key (c,&key)) { 

if (key == K_F6) return; 
if (key ~= K_F3) { 

if (min >= 1) { 

if ( (min - 10) >= 1){ 

min -= 10; 

—page; 
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} else { 

min = 1 ; 
page = 1 ; 

} 

max = min + 10; 
if ( (max >= calls) 


) max 


(key == 
if 


K _F4) { 

(max <= calls) { 

if ( (max + 10) > calls) { 

max = calls; 

page = total pages; 

} else { 

max += 10; 

++page; 

} 

if ( (max - 10) <= 1) { 

min = 1; 

} else min = max - 10; 


show commands? () 


*/ 


show_commands () 

{ 


use (dcommands 
gotoxy (1,3); 
cprintf ("FI - 
gotoxy (1,7); 
cprintf ("F3 - 
gotoxy (1,9); 
cprintf ("F4 - 
gotoxy (1,13); 
cprintf (“F6 - 


Wt ) ; 


- Call List" ) ; 


- Browse Up"); 

- Browse Down' 1 ); 


Exit" ) ; 


/* 


do detail entry () 


_* / 

do_detai1_entry () 

{ 

int FIELD,done,key; 
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derive other (); 
show_detai1_scr (); 

FIELD = 1; 
done = FALSE; 

whi1e (!done ){ 
switch (FIELD) { 

case 1: key = get_adjustments_end (); 

break; 

case 2t key = get_discount_detai 1 _end (); 

brea k; 

} 

if (key == K_F1) { 

show_cal1_1isting (); 
use (detailwt); 
clrscr (); 
show_detai1_scr (); 

} 

if ( (key == K__F3) || (key == K_F4) ){ 

strcpy (errmessctge, "Must Be in Call List 

Mode, F1 key"); 

errrtn (errmessage); 
use ( data i 1 _.wt ) ; 

textcolor (White); /* nq>t good, but have 

to reset screen */ 

text background (Black); 
clrscr ( ) ; 
show_detai1_scr (); 

} 

if (UP_FIFLD) { 

if (FIELD == 1) { 

FIELD = 2; 

} else FIELD = 1; 

} 

if (DOWN_FI ELD) { 

if (FIELD == 1) { 

FIELD =2; 

} else FIELD « 1; 

} 

if (key == K_F6) { 

return; 

> 

/* do calc's and etc... */ 
derive other (); 
use (detail_wt); 
show_detai1_scr (); 

} /* while loop end */ 


} 



Page 5 


S70 , 


01SPEND.C 


/* - _- • _ 

MODULE: dispend.c 

PURPOSE: Display MODLUE endagr screens 
Written Gy : Greg McGregor 1990 

REVISED: What was revised? 

- GMM 7-30-1991 Nothing 

--- * 

/ 

ffinclude <stdio.h> 
ffinclude <windows.h> 

#include <bench.h> 
ffinclude <proc.io> 
ffinclude <time.h> 
ffinclude <agrio.h> 
ffinclude <gbase.h> 
ffinclude <gkeys.h> 
ffinclude <get'line.h> 
ffinclude <agreev3.h> 
ffinclude <extnvar.h> 
ffinclude <extscrns.h> 

If include <getline.h> 


display_rtb_charges_end () 

{ 

use (data wt_end) ; 
gotoxy (62,6); 

cprintf ("%-4 . 2f " ,agreemnt rec.minphochg ) ; 

} 

display_days_charge_end () 

{ 

use (data_wt end ) ; 
gotoxy (62,5); 
cprintf (" "); 

gotoxy (62,5); 

cprintf (" %-4.2f",agreemnt rec.dlyphochg ) ; 

} 


display_credit_info () 

{ 

capAdjust (ag reemnt rec.custname,25); 
display_card_name_end (); 
display_card_number_end (); 
display_card expr_end (); 

} 


display card name_end () 
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{ 

int i ; 

use(data_wt_end); 
gotoxy (20,2); 
text background (Black); 

if (str1en(agreemntrec.custname) < 24) 
for (i=1;i<=24;1++) 
cprintf (“ “) ; 

gotoxy (20,2); 

cprintfN (agreemnt rec.custname,24); 

} 

int get_card name end () 

{ 

return get line 

(agreemntrec.custname,5,2,24,data_wt end,"Customer Name: "); 

} 


display_card_number_end () 

{ 


i nt 


} 


use (data_wt_end); 
gotoxy (20,3); 
textbackground (81ack); 

if (strlen(agreemntrec.creditno) < 16) 
for (i=1;i<=16;i++) 
cprintf ( “ " ) ; 

gotoxy (20,3); 

cprintfN (agreemnt rec,creditno,16); 


int get_card_number_end () 

{ 

return get_line (agreemntrec.creditno,5,3,16,data_wt_end, 
"Card Number ; “ ) ; 


} 

display_card exprend () 

{ 

use (data_wt_end); 
gotoxy (20,4); 

cprintfN (agreemnt rec.expiredate,4); 



int get_card_expr_end () 

{ 

return get line 

(agreemntrec.expiredate,5,4,4,data_wt_end,“Card Expr. : " ) ; 

} 


display_phone_number_end () 

{ 


use (data_wt end); 
gotoxy (59,2); 
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cprintfN (agreemntrec.curphoneno,12); 


display_agreement_end() 

{ 

use (datawtend); 
gotoxy (59,3); 

cprintfN (agreemnt rec.. agreeno, 1 3 ) ; 


display_batteries_end( ) 

{ 

int t; 

use (data_wt end); 
gotoxy (26,9); 
t = agreemntrec.nobatrtn ; 
cprintf (“%d",t); 

} 


display batteries_rented_end () 

{ 

int t; 

use (data_wt_end); 
gotoxy (33,9); 
t = agreemntrec.nobat rent; 
cprintf (“%d", t) ; 


int get_batteries_end() 

{ 

char s [20] ; 
int stat,ok; 
wintype win; 

ok = FALSE; 


whi 1 e 



Batteries :" ) ; 


(!ok) { 

itoa (agreemntrec,nobatrtn,s, 1 0) ; 

stat = get_1ine (s , 5,9 ,'2 , data_wt_end , "No . Extra Batteries 

if (stat == K_CARD_READER) display_credit_info (); 
while ( ! isdigit (s [0])) { 

if (Msdigit (s[0])){ 

strcpy (errmessage,"Must Be Numeric 0 - 9“); 
errrtn(errmessage); 

} 

stat = get line (s,5,9,2,data_wt_end,"No. Extra 
if (stat == KCARD READER) display_credit_info () 

} 

agreemntrec.nobatrtn = atof (s); 

if (agreemntrec.nobatrtn > agreemntrec.nobatrent) { 

strcpy (errmessage,“Can't Return More Batteries 


Than Rented!"); 
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} 


errrtn (errmessage); 
} else ok = TRUE; 


return 

} 

display_chargers_end() 

{ 

i nt t; 


stat ; 


use(data_wt_end); 
gotoxy (26,8); 
t = agreemntrec.nochgrtn; 
cprintf (“%d n ,t); ' 


display chargers_rented_end () 

{ 

i nt t; 

use (data_wt_end); 
gotoxy (33,8); 
t = agreemntrec.nochgrent; 
cprintf ("%d",t); 


int get_chargers_end() 

{ 

char s [20] ; 
int stat,ok; 


wintype win; 

ok — FALSE; 
while (!ok) { 

itoa (agreemnt rec.nochgrtn,s,10); 

stat = get_line (s,5,8,2,data_wt_end,"No. Chargers 


9"); 



if (stat =« K_CARD_READtR) dispiay_credit_info (); 
while (iisdigit (s[0])) { 

if ( ! isdigit (s[0])) { 

strcpy (errmessage,"Must Be Numeric 0 - 

errrtn(errmessage); 

} 

stat = get_line (s,5,8,2,data_wt_end,"No. Chargers 
if (stat == K CARD READER) display credit_info (); 


Than Rented! 


} 

agreemntrec.nochgrtn = atof (s); 

if (agreemntrec.nochgrtn > agreemntrec.nochgrent) { 

strcpy (errmessageCan 1 1 Return More Chargers 

errrtn (errmessage); 

} else ok = TRUE; 



i • 


> 


return stat; 
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display_discount_end () 

{ 

int t; 

use (data_wt_end); 
gotoxy (18, 11); 
t = agreemntrec.discount ; 
cprintf ("%d",t); 

} 


int get_discount_end( ) 

{ 

char s [ ? 0 ]; 

int stat,in_range; 

wintype win; 




in_range = FALSE; 

itoa (agreemntrec.discount,s,10 ) ; 

stat = get_line (s,5,11,3,data_wt_end,"Discount % : "); 

if (stat == K_CARD_READER) display_credit_info (); 
while ( (lisdigit ( s [ 0 ] ) ) ) { 

if (!isdigit (s[0] ) ) { 

strcpy (errmessage,"Must Be Numeric 0 - 9"); 
errrtn(errmessage) ; 

} 

stat = get_line (s,5, 11,3,data_wt._end, "Discount % 
if (stat == K_CARD_ READER ) display_credit_info () 

} 

if ( (atof(s) > = 0) (atof(s) < = 100) ) 

in_range = TRUE; 
while ( !in range ) { 

if ( ! in_range) { 

strcpy (errmessageMust Be A Percent 0 - 100"); 

errrtn(errmessage); 

} 

stat = get_line (s,8,11,3,data wt endDiscount % 


if (stat == KCARDREADER) display_credit_info 
if ( (atof(s) >=0)~&& (atof(s) <=100) ) 
in_range = TRUE; 

} 


agreemnt rec . di scourtt = atof (s); 



} 


return stat; 


get_discount_detail_end () 

{ 


char s[ 7 0]; 

int stat,in_range; 

wintype win; 


in_range = FALSE; 

itoa (agreemntrec.discount,s,10) 

stat ~ get_line (s,15,12 


3,detai1 


wt, 


Discount % 
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while ( (Msdigit (s[0]))){ 

if (Msdigit ( s [ 0 ] ) ) ( 

strcpy (errmessage,“Must Be Numeric 0 - 9 " ); 
errrtn(errmessago); 

} 

stat = get_l ine (s , 1 5,1 2 ,3 , detai 1 wt, "Discount % 

: " ) ; 

} 

if ( (atof(s) > = 0) && (atof(s) <=100) ) 
in_range = TRUE; 
while ( !in_range ) { 

if ( Mn_range) { 

strcpy (errmessage,“Must Be A Percent 0 - 100"); 

errrtn(errmessage); 

> 

stat ='get_line (s,15,1 2 ,3,detai1 wt,"Discount % 

• "); 

if ( (atof(s) >=0) && (atof(s) <=100) ) 
in_range = TRUE; 

} 

agreemntrec,discount = atof (s); 
return stat; 


dis piay_remarks 1_end() 

{ 

gotoxy (5,?); 

cprintfN (agreemntrec.remarks 1,34); 

} 


get_remarks1 end () 

{ 

■/* null out field if nothing in it */ 
if (agreemntrec,remarks 1[0] == ’ ') agreemntrec.remarks 1[0] 

return get_line (agreemntrec.remarksl,5,?,34,remarks wt,""); 


display_remarks? end () 

{ 

gotoxy (5,3); 

cprintfN (agreemntrec.remarks?,34); 


get_remarks2_end () 

{ 


/* null out field if nothing in it */ 
if (agreemntrec.remarks?[0] == ’ ') agreemntrec.remarks?[0] ='\0'; 
return get_line (agreemntrec.remar ks2 , 5 ,3,34,remarks wt,“"); 

} 

display_remarks3 end() 

{ 
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gotoxy (5,4); 

cprintfN (agreemntrec . remarks.? , 34 ) ; 


get_remarks3 end () 

{ 


/* null out field if nothing in it */ 
if (agreemntrec,remarks?[0] == ' ') agreemntrec,remarks?[0] 

return get_line (agreemnt rec . remarks.? , 5,4,34 , remarks wt , " “ ) 



display adjustments_end () 

{ 

use (detail wt); 
gotoxy (42, 11); 

cprintf ( " <%4.?f",agreemnt rec.adjustment ) ; 
gotoxy (49,11); 
cprintf (">"); 


get_adjustmentsend () 

{ 

char s [ 2 0 ),s1[20]; 
int stat,ok; 
wintype win; 
float t,t2 ; 


null field (s,20); 
ok = FALSE; 
while (!ok) { 


* < ** ) 



gcvt (agreemntrec.adjustment,7,s); 

null_field (si,20); /* make sure field is nulled or - */ 

strcpy (s1,s); /* convertion problems occur */ 

null field (s,20); 

strcpy (s,s1); 

gotoxy (49,11); 

cprintf (“>"); 

stat = get_line (s , 15,11,7,detai1wt,"Adjustments 

while ( (lisdigit (s[0])) && (s[0] != ’-') ) { 

if ( (lisdigit (s[0))) && (s[0] != '-') ){ 

strcpy (errmessage,"Must Ge Numeric 0 - 

errrtn(errmessage); 

} 

gotoxy (49,11); 
cprintf (“>"); 

stat = get line (s,15,11,7,detai1_wt,“Adjustments 


< " ) ; 


} 

t = atof (s); 

t2 = agreemntrec.adjustment; /* previous adjustment */ 
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t2=(t*-1.0)+( agpeemntrec.subtotal + t2 ); 
if ( t? < 0.0 ) { 

strcpy (errmessage, 11 Adjustment Too Much!"); 
errrtn (errmessage); 

} else ok = TRUE; 

> 

agreemntrec.adjustment = t; 
return ( stat ) ; 

} 

display totaltax_end () 

{ 

use (data_wt_end); 
gotoxy (62,9); 
cprintf (" " ) ; 

gotoxy (62,9); 

cprintf ("%-4.2f",agreemntrec.tot a 1 tax); 

} 


/* 

// note ldw_charges are added in other for only this display 

// they are not added in reality. 

*/ ■ 
display_other_end () . ' 

{ 

use (data wt_end); 
gotoxy (62,7); 
cprintf (" "); 

gotoxy (62,7); 

cprintf ("%-4.2f", ( other charges + agreemntrec.1dw_charges ) ) 

} 

display_subtotal_end () 

{ 

use (datawt end); 
gotoxy (62,8); 
cprintf (" "); 

gotoxy (62,8); 

cprintf ("%-4.2f",agreemntrec.subtota 1); 

} • 

display_netdue_end () 

{ 

use (data wt_end); 
gotoxy (62,11); 
cprintf (■ "); 

gotoxy (62,11); 

cprintf ("%-5.2f",agreemnt rec.netdue); 


} 
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MODULE: Dispopen.c initial agreemnt 

Displays various fields on the screen. Used for editing 
Written By : Greg McGregor 

REVISED: What was revised? 

- GMM 7-30-1991 Nothing 

GMM 9-5-1991 LDW added 


*/ 


It include 
Hinclude 
Hinc1ude 
Hinclude 
Hinclude 
Hinc1ude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 
Hinc1ude 
Hinclude 
Hinclude 
Hinclude 


<stdio.h> 
<ctype.h> 
<gkeys.h> 
<windows.h> 
<t1 me.h> 
<get1ine.h> 
<gbase.h> 
<extnvar.h> 
<bench.h> 
<proc.io> 
<agreev3.h> 
<agrio.h> 
<misc.h> 
<dos.h> 


display card_info_open (wintype a_window) 

{ 

capAdjust (agreemntrec.custname , 25 ); 
display_card_name_open (a_window); 
display_card_expr_open (awindow); 
display_card_numberopen (awindow); 


display_card_name_open (wintype a_window) 

{ 

i nt i ; 

use(awindow),- 
gotoxy (20,2); 
textbackground (Black); 

if (strlen(agreemntrec.custname) < 24) 
for (i=1;i<=24;i++) 

cprintf (" “); 


gotoxy (20,2); 

cprintf ("%s“, agreemnt rec . custname) ; 

} 


int get_card_name_open (wintype awindow) 

{ 

int stat; 

stat = getline 
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(agreemntrec,custname,5,2,24,a_window,“Customer Name:."); 

if (stat == K_CARD_READER) display_card_info_open 

(a_window); 

return stat; 

} 


displaycard number open (wintype a window) 

{ 


i n t i 


} 


use (a window); 
gotoxy (20,3); 
text background (FUack); 

if (strlen(agreemntrec.creditno) < 16) 

for (i=1;i<=16;i++) 
cprintf (" "); 

gotoxy (20,3); 

cprintf ("%s“ ,agreemntrec.creditno); 


int get card nutnber_open (wintype a_window) 

{ 

int key; 


Number 


"); 


key = getline (agreemntrec,creditno,5,3,16,a_window,"Card 


switch (agreemntrec.creditno[0]){ 

case '3' : if (agreemntrec.creditno[1] == '7') 

strcpy 


(agreemntrec,credittype , " AE" ) ; 
(agreemntrec.credittype[1] == '8') 
(agreemntrec.credittype,"DC"); 

case '4' 
case '5' 


if 


strcpy 


» t f 


case ■ 6 
case ’9’ 


break; 

strcpy (agreemntrec.credittype,"VI"); 

break; 

strcpy (agreemntrec.credittype,"MC"); 

break; 

strcpy (agreemntrec.credittype,"DI"); 

break; 

strcpy (agreemntrec.credittype,"C8"); 

break; 


} 


if (key == K_CARD_READER) display_card_info_open (a_window^ 
return key; 


} 


display_card_expr_open (wintype a_window) 

{ 

use (a_window); 
gotoxy (20,4); 

cprintf ("%s“,agreemntrec.expiredate); 

} 





W». . ■ ■«.* 
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int get _card_expr_open (wintype a_window) 


{ 


int stat; 

stat = get _ I t ne 

(«gr«»«ntr«c.exp1red«te^5^4 

(a_window); 

return stat ; 


} 


displ ay_phone_number_open (wintype a_window) 


{ 


use (a._window); 
gotoxy (57,3); 

cprintf ( "%s” , agreemntrec . curphoneno) ; 


} 


displ ay _ agreement_open (wintype a_window) 


{ 


use (a_window); 
gotoxy ( 57, 4 ) ; 

cprintf ("%s",agreemntrec.agreeno); 


> 


displ ay„meter_hours open (wintype a ..window) 


{ 


int t ; 


use (a_window); 
gotoxy (62,3); 

t = agreemntrec.hoursout; 
cprintf ("%d“,t) ; 


} 


display_meter_mins open (wintype a ..window) 

{ 

i n X X » 

use (a_window); 
gotoxy (62,4); 

t = agreemntrec.minutesout; 
cprintf ("%d",t); 

} 


display_drivers_open (wintype a_window) 


{ 


cprintf 


use (a_window); 
gotoxy (22,6); 

("%s“,agreemntrec. licenseno); 


} 


int get_drivers_open (wintype a_window) 


{ 
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(a window); 


if (stat == K_CARD_READER) disp1ay_card_infoopen 


return stat; 

} 

display_address_open (wintype a_window) 

{ 

use (a_winciow); 
gotoxy (15,7); 

cprintf (“%s",agreemntrec.custaddrl); 

} 


int getaddress open (wintype a_window) 

{ 

int stat; 


stat = get_line 

(agreemntrec.custaddr1,5,7,23,a_window,"Address : "); 

if (stat == K_CARD_READER) dispiay_card 

(a_window); 

return stat; 


info open 


} 


disp'lay_city_open (wintype awindow) 

{ 

use (a_window); 
gotoxy (15,3); 

cprintf ("%s",agreemntrec.custcity); 

} 


int get_city_open (wintype awindow) 

{ 


int stat; 

: "); 

(a_window); 

} 


stat = get_1ine (agreemntrec.custcity,5,8,23,a_window 
if (stat == K_CARD_READER) display_card_info_open 
return stat; 


display_state_open (wintype a_window) 

{ 

use (a_window); 
gotoxy (14,9); 

cprintfN (agreemntrec.custstate, 2 ); 

} 


display zip^open (wintype a^window) 

{ 

use(a_window); 
gotoxy (17,9); 

cprintf ( M %s“,agreemnt rec.oust zipcd); 

} 

int get_state_open (wintype a_window) 
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( 

char temp[10]; 
int stat; 

moveX (temp,agreemntrec.custstate,2); 
temp[2] = 1 \0 1 ; 

stat = get_1ine (temp,5,9,2,a_window,“St/Zip ;"); 
moveX (agreemntrec.custstate,temp,2); 
if (stat == K_CARD_READER) display_card_info^open 
return stat; 

} 

int get_zip_open (wintype a_window) 

{ 

char temp[20]; 
i n t s t a t ; 

moveX (temp,agreemntrec.custzipcd,9); 
temp [9] = . f \0 f ; 

stat = get_line (temp, 16,9,9,a_window, " ) ; 
moveX (agreemntrec.custzipcd,temp,9); 
if (stat ™ K CARD_READER) display_card_info_open 
return stat; 

> 

display_home_phone_open (wintype awindow) 

{ 

use ( a_wi rtdow ); 
gotoxy (17,10); 

cprintfN (agreemnt rec.homephone,12); 

} 

int get_home_phone_open (wintype a_window) 

{ 

char temp[20]; 
int stat ; 

nu‘ll_field (temp,20); 

if ( (agreemntrec.homephone[0] == ' *) || 

(agreemntrec.homephonefO] == '\0') ){ 

moveX (temp," - - “ ,12); 

}e1se moveX (temp,agreemntrec.homephone,12); 
temp[12] = *\0'; 

stat = get line_mask (temp,5,10,12,a_window,"Home 
- "); 

moveX (agreemntrec.homephone,temp,12); 

if (stat == K_CARD_READER) disp1ay_card_1nfo_open 

return stat; 

} 


display_1oca1 phone_open (wintype awindow) 

{ " 

use(a_window) ,- 

gotoxy (17,11); 

cprintfN (agreemnt rec. I oca I_phone_number,12); 

} 


(a window) 


(a window) 


Phone : " , 

(a window) 
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int get_loca 1_phone_open (wintype awindow) 

{ 

char temp[20]; 
int stat; 

null_field (temp, 20); 

if ( (agreemntrec.local_phone_number[0] == ' ’) || 

(agreemntrec . 1 ocal __phone_number [0] ==■ '\0') ){ 

moveX (temp," - - ”,12); 

} else moveX (temp,agreemntrec.1ocal_phone_number,12); 
temp[12] = '\0 *; 

stat = get_line_mask (temp,5,11,12,a_window,"Local Phone: 

moveX (agreemntrec.1ocal phone number,temp,12); 

if (stat == K_CARD_READER) display_card_info_open (a_window); 

return'stat; 


dispiay_estimated_return date (wintype a_window) 

{ 

char temp[20],t[20]; 

null_field (temp,20); 
null_f ie'ld (t,20); 

if (agreemntrec.estimated_return_date == ' ') { 

moveX (t," “,6); 

} else moveX (t,agreemntrec.estimated_return date,6); 
if (agreemntrec.estimated_return_date[0] == '\0') 

moveX (t," ",6); 

temp[6] = t[0]; /* put mask and convert from YYMMDD to MM/DD/YY 

temp[7] = t [ 1 ]; 

temp[5] = '/’; 

temp[0] = t[2] ; 

temp[1] = t[3] ; 

temp[2] = 

temp[3] = t [4]; 

temp[4] = t[5] ; 

temp[8] = ' \0 ’ ; 

use(a_window) ; 

gotoxy (17,12); 

cprintfN (temp,8); 


/* - 

// Function Name -> check_return 
// Parameters: 

// Function: TRUE/ FALSE 
// Returns: 

// Written By : Greg McGregor 

// 


date 



int check returndate (char *dt) { 
c ha r t[10 ] ; 
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int i ; 

time_t computers_time; 
struct tm ^computers_date; 
char str [ 80] ; 


computers_time = time ( NULL ); 

computers_date = localtime ( &computers_tIme ); 
nulI field (t,10 ) ; 

if ( (lisdigit (dt[6])) || ( lisdigit (dt[7])) ){ 

errrtn ( “You must enter digits between 0 - 9 “); 
return ( FALSE ); 

} 

t[0] = dt [6] ; 
t[1] = dt[7] ; 
i = atoi ( t ); 

if ( computers_date->tm_year > i ) { 

sprintf (str,"The year must be equal or greater than 
%d",computers_date->tm_year ); 

errrtn ( str ); 
return ( FALSE ); 

} 

t[0] = d t [ 0 ] ; 
t[1] = dt [ 1 ] ; 
i = atoi (t); 

if ( (i < 1) || (i > 12) ) { 

errrtn ( "The month must be between 1 and 12"); 
return ( FALSE ); 

} 

f[0] = d t[3] ; 
t[1] = dt [4] ; 
i = atoi (t ) ; 

if ( (i < D II (i > 31) ) { 

errrtn ( “The day must be between 1 and 31"); 
return ( FALSE ); 

} 

return TRUE; 


int get_estimated_return_date (wintype a_window) 

{ 

char temp[20],t[20]; 
int stat, resul t;. 

moveX (t,agreemntrec.estimated_return date,6); 

if (agreemntrec.estimated_return_date[0] == '\0') { 

get_curdate ( &t ); /* plug in current date */ 

} 

temp[6] = t[0]; /* put mask and convert from YYMMDD to MM/DD/YY 

temp [7] •- t [ 1 ] ; 

temp[5] = ’/’ ; 

temp[0] = t[2] ; 

temp[1] = t[3] ; 
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temp[2] 
temp[3] 
temp[4] 
temp[8] 


V ; 

t[4] 

t[5] 

’\ 0 ’ 


n ll 


} 


do { 

stat = get_line_mask (temp,5,12,8,a_window,"Return Date 

/ / " ) ; 

result = check_return_date (temp); 

} while (!result); 

null field (t,8); 

t[0] = temp[6j; /* convert from MM/DD/YY to YYMMDD */ 
t[1] = temp[7] 
t[2] = temp[0] 
t[3] = temp[1] 
t[4] = temp[3] 
t[5J = temp[4] 
t[6] = ‘NO'; 

moveX (agreemnt rec.estimated return date,t,6); 
if (stat == K_CARD_READER) display_card_info_open (a_window); 

return ( stat ); 


/* 

display_company_open (wintype a_window) 

{ 

use(a window); 
gotoxy (17,11); 

cprint f ("%s",agreemnt rec.company); 


int get_company_open (wintype a_window) 

{ 

i n t s t a t; 

stat = get_line (agreemntrec.company,5,11,24,a_window,"Company 

" ) ; 

if (stat == K_CARD_READER) display_card_info_open (a_window); 
return stat; 

} 

*/ 

display_batteries_open (wintype a window) 

{ 

int t; 

use (awindow); 
gotoxy (65,8); 
t = agreemntrec.nobat rent; 
cprintf (“%d",t ) ; 

} 

int get_batteries,_open (wintype a window) 
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char s[20] ; 
int stat; 
wintype win; 

nu 'l l_f ield (s , 20) ; 

itoa (agreemntrec .nobatrent.s, 10) ; • .. x 

stat = get jine (s , 44,8,2 , a ..window, “ No . Extra Batteries: ) 

1f ( Stat == k_CARD_READER) display_card_info_open 

(a window); 

while (lisdigit (s[0'J)) { 

if (lisdigit (s[0J)){ 

errrtn("Must Be Numeric 0 - 9 ); 

stat = get_1ine (s,44,8,2,a_window,"No. Extra 

Batteries: ); _. f (stat = _ k_CARD„READER) display_card_info_open 

(a_window) ; 

aoreemntrec.nobatrent = atof (s)< 

* ^ 

return stat; 

} 

display chargers_open (wintype a_window) 

{ 

int t; 

use(a_window); 

gotoxy (65,9); 
t = agreemntrec.nochgrent; 

cprintf (“%d",t); 

} 

int get_chargers_open (wintype a_window) 

{ 

char s[20]; 
int stat; 
wintype win; 

null_field (s,20); 

itoa (agreemntrec . nochgrent , s ,1 0) ; • " 

stat = get_l ine (s , 44 , 9,2 , a..window, No. Chargers 
if (stat == K_CARD„READER) display_card_into_open 


(a_window); 


: ■); 

(a_window) 


while (lisdigit (s[0])) { 

if (Iisdigit (s[0])) { n q»i. 

errrtn("Must Be Numeric 0 - 9 ), 

stat = get_line (s, 44 , 9 ,2,a„window,"No. Chargers 

if ( S tat == K_CARD_READER) display_card_info_open 

t * 


agreemntrec.nochgrent atof (s), 
return stat; 
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/* 

display_cases open ( wintype a_window) 

{ 

int t; 

use (a_window); 
gotoxy (65,10); 
t = agreemntrec.nocasrent; 
cpnintf ("%d",t); 

} 


int get_cases_open (wintype a_window) 

{ 

char s[?0]; 
int s t a t; 
wintype win; 

nu1iield (s, 2 0 ) ; 
itea (agreemntrec.nocasrent,s,10); 

stat = get_'line (s,44, 10,2,a^w1 ndow /'No, Cases 


(a_window); 


if (stat == K_CARD READER) display_card_info_open 

while (lisdigit (s[0'J)) { 
if (lisdigit (s[0])) { 

errrtn ("Must Be Numeric 0 - 9 "); 

} 

stat = get line (s,44,10,2,a_window,"No. Cases 


: ”); 

(a window) 


if (stat == K_CARD_READER) display_card_info_open 


> 


agreemntrec.nocasrent = atof (s); 
return stat; 


> 

*/ 


dispiay_1dw_open (wintype a_window) 

{ 

char t; 

use (a_window); 
gotoxy (65,10); 

t = agreemntrec.remarks5[0] ; 
cprintf ("%c",t); 


} 

int get_ldw open (wintype a window) 

( 

c ha r s [ 2 0 ] ; 
int stat; . 
wintype win; 

s[0] = agreemntrec.remarks5[0] ; 

stat = get_/line (s , 44,10, 1,a_window,"LOW [Y/N] t "); 

if (stat == K_CARD_READER) display_card_info_open (a_window); 
while ( (s [ 0 ] ! = 'Y') && (s[0] != ’N’) ) { 
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if ( (s[0] != ’Y') && (s[0] != ’N') ) 

errrtn ("You must enter a Y to accept or N to 

decline. " ) ; 

stat = get_line (s , 44,1 0 , 1 , a_wi ndow, " L DW [Y/N] : " 

); 

if (stat == K_CARD_READER) dispiay_card_info_open 

(a_window); 

} 

agreemntrec.remarksS[0] = s[0]; 
return stat; 

} 


dispiay_discount_open (wintype a window) 

{ 

int t; 

use (a_window); 
gotoxy (65,11); 
t = agreemntrec.discount; 
cprintf ("%d",t) ; 

} 

int get discount_open (wintype a_window) 

{ 

char s[20]; 

int stat,in_range; 

in range = FALSE; 
nuii_fieid (s,20); 

itoa (agreemntrec.discount,s,10) ; 

stat = getline (s,44,11,3,awindowDiscount % : 

I ' 

if (stat " K_CARD__READER) dispiay_card_info_open 

while ( (lisdigit (s[0])) ) { 

( ! isdigit (s [0J)) { 

errrtn ("Must Be Numeric 0 - 9"); 

} 

stat = get_line (s,44,11,3,a_window,"Discount % 
if (stat == K CARD READER) display card info open 


if ( (atof(s) >=0) && (atof(s) <=100) ) 
in_range = TRUE; 
while ( linrange ) { 
if (Iin_range) { 

errrtn("Must Be A Percent 0 - 100"); 

} 

stat = get_line (s,44,11,3,a_windowDiscount % 
if (stat == K_CARD_READER) dispiay_card_info_open 


wintype win; 

(a_window); 

if 

: "); 

(a window); 
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(a window); 


if ( (atof(s) >=0) && (atof(s) <=100) ) 

in_range = TRUE; 

} 

agreemntrec.discount = atof (s); 
return stat; 


} 


ENDAGR.C 


I ' 


MODULE: endagr.c RIB 

PURPOSE: Allows user to close an agreement. 

Written By: Greg McGregor 
GMM 1990 

REVISED: What was revised? 

GMM 7-30-1991 Added federal, state air,state rent, county and 

city taxes. 


--*/ 


It include 
tti nc 1 uds 
it i nc 1 ude 
tti nc 1 ude 
tt i n c 1 u d e 
tti ncl ude 
tt i nc 1 ude 
tti ncl ude 
ttinclud 0 
ttinclude 
ttinclude 
ttinclude 
ttinclude 
ttinc1ude 


<process.h> 
<stdio.h> 

<conio.h> 

<std1ib.h> 

<time.h> 

<st ring.h> 

<window.h> 
<dos.h> 

<bios.h> 
<ctype.h> 
<bench.h> 
<proc.io> 
<\sys\stat.h> 
<mat h.h> 


ttinclude 
ttinc1ude 
ttinclude 
tt i n c 1 u d e 
ttinclude 
ttinclude 
tt i n c 1 u d e 
ttinclude 
ttinc1ude 
ttinclude 
ttinclude 
ttinc1ude 
ttinclude 
ttinclude 
ttinc1ude 
ttinclude 
ttinclude 
ttinclude 
ttinclude 
ttinclude 
tti nc1ude 


<agrio.h> 
<agreev3.h> 
<control.h> 

< phone.h> 
<raperson.h> 
<gbase.h> 
<extnvar.h> 
<windows.h> 
<gkeys.h> 
<extscrns.h> 
<whatend.h> 
<misc.h> 

<getline.h> 
<cardrdr.h> 
<credit.h> 

<dispopen.h> 
<printer.h> 
<detai1.h> 
<reaItime.h> 
<taustat.h> 

<1ostdam.h> 


/* all types, making them externs */ 


/* patches global variables as externs 


*/ 
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/* 

* Globa Is 

*/ 

# 

int IS_PHONE_LOST = FALSE; 
float global amount paid = 0.0; 


endagr () ; ENTRY POINT IN/OUT OF MODULE 


endagr () 

{ ■ 

int ok; 

ok = TRUE; 
window (1,1,80,25); 
text background (Black); 
c1rscr (); 
main_window_end (); 

w init_end (); /* init what next */ 

init_fields_end (); 

/* init_keys (); */ /* done in mainmneu,init keys for endagr modul 

*/ 

/* rt_im*tdatabases (); */ /* done in mainmenu,init realtime 

billing data bases */ 

open_fi 1es() ; 

if (!open_rt_fi1es ()) { /* realtime billing files */ 

rtberror (-1); 
ok = FALSE; 

} 

if (!entry_level end ()) { 

strcpy (errmessage,“Pi ease enter your ID code correctly 

next time!"); 

errrtn(errmessage); 
ok = FALSE; 

} 

end_agr_func_options_window (); 


if (ok) 

processa11 end(); 

close_al1 windows (); 
c1ose_fi1es (); 

c1ose_rt_fi1es (); 

errorwt = windowopen (&error win); 

setti11e (errorwt,"Garbage Col lector",CenterUpperTi11e); 
gotoxy (1,2); 

centerPrint (60,"F r e e i n g 


Memory"); 
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garbage_co11ect (&ca 11 _rec) ; /* garbage col lect cai1_rec */ 

windowclose (error_wt); 

PRINTEO_CONTRACT = FALSE; 
return; 

} 

/*- 

process_a11 

W ™ ** “’ W *-* • *—• —- — w — * *w w ww *W w w w W ^ V W W W W V W W M M ^ w W W W ^ ^ ^ __p. H - r_ f -l_n_r ^ ^ y/ 

pr ocess_all__end () 

{ 

int stat; 

stat ” do_cti_end (); 
if (stat == —25) return; 
if (stat ) { 

stat = ioad_agreemnt (3); /* load by phone number if cti 

worked */ 

} else stat = 1oad_agreemnt (1); /* by agreemnt number */ 
if (!stat) return; /* coulrln ' t find agreemnt */ 
if (!derive_fields_end ()) return; 
do_data_end (); 

} 


/* -- 

/ 

* 

* Procedure Name: end_agr_func_options window 

* Parameters : 

* Function: 

* Returns : 

* 

* Written By: Greg McGregor 


end_agr_func_options window () 

{ 

funckeyswt = windowopen (&funckeys_win); 

settitie (funckeys_wt,"Commands",CenterUpperTit1e); 

gotoxy (3,1); 

cprintf (“F2 - Cancel"); 

gotoxy (3,2); 

c p rin t f ("F 3 -Finish"); 

gotoxy (3,3); 

cprintf ("F7 - View Gill"); 
gotoxy (3,4); 

cprintf (“F9 - What Next?"); 
gotoxy (3,5); 

cprintf ("F10 - More Options"); 
use (main_wt); 


} 








254 - 
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/X _;__ 

me) i n_wi ndow_end : 

- 

main _window_end() 

{ * ' 

mainwt ” windowopen (&main_win); 

settitle (main^wt,Returning a Phone ,CenterUpperTitle); 

cursoroff (); 
use (main wt) ; 


- 

init ields_end: 

- * / 

init_fields_end() 

{ 

moveX (agreemntrec.curphoneno, "111-111-1111" ,12); 

PRINTED_CONTRACT = FALSE; 

CARD APPROVED = FALSE; 


} 

/* - 

derive_fields_end 

W tart* ta* 4 M tarf tav krt rt* tata v* t*rt ata* VI 

int derive_fields_end () 

{ 

float t1,t2; 
float t 3,14,t 5; 
char temp[10]; 
int stat; 


get_curdate (agreemntrec.actrtndate); /* put rental 

date in field */ 

get_time (agreemntrec.timein); 

moveX (agreemntrec.origagency,controlrec.tau_id # 4); 
agreemntrec.phochgday* - controlrec.phone_daily„chg; 
agreemntrec.phochgmin = controlrec.charge_per_minute; 
agreemntrec.minphochg = tota 1_rtb_bi11; 


15 = 0; 
if (strnemp 

(agreemntrec.rentaldate,agreemntrec.actrtndate,2) ! “0 ) 

t5 = 365; /* years are different add twelve to 


months place */ 


tl = (float) day_in_year (agreemntrec. rentaldate) ; 
t2 = (float) day_in_year (agreemntrec.actrtndate); 

12 = 12 + 15 ; 


11 = 12 - 11 ; 


/* days used Calendar */ 
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strcpy (temp,agreemntrec.timeout); 

addseconds (temp); 

t3 = time_to_seconds (temp); 

strcpy (temp,agreemntrec.timein); 

add_seconds (temp); 

t4 = time_to_seconds (temp); 

if (t4 > t3) ++t1; /* if time is over 24 hrs add another 

day */ 


agreemntrec.daysused = tl; 

stat = reset_file9 (fd_control,^controlrec) ; 
if (stat < 0) { 

strcpy (enrtnessage, “Can't Find CONTROL RECORDS"); 
errrtn(errmessage); 
return FALSE; 


agreemntrec.d1yphochg = controirec.phonedai1y_chg * 
agreemntrec.daysused; 

agreemntrec.adjustment =0; 

moveX (phonerec.curphoneno,agreemntrec.curphoneno,12); 
stat = exactkey9 (fd_phone,&phonerec); 
if (stat <0) { 

sprintf (errmessage,"derive_fields: ERROR in phone 

file! %d“,stat); 

errrtn (errmessage); 
return FALSE; 

} 

return TRUE; 

} 


/* - ; - 

derive_other : derive misc charges, damage , taxes etc... 


*/ 

derive_other () 

{ 

agreemntrec.equipchg = 0; 


if (agreemntrec.nobatrent > agreemntrec.nobatrtn) { 

agreemntrec.equipchg += (agreemntrec.nobat rent 
agreemntrec.nobatrtn) 

* 

control rec . 1 ost_battery_chg ,- 

} 


if (agreemntrec.nochgrent > agreemntrec.nochgrtn) { 

agreemntrec.equipchg += (agreemntrec.nochgrent 
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agreemntrec.nochgrtn) 

control rec.1ost_charger_chg; 

} 


* 


if (agreemntrec.remarksS[0] — '¥*) { 

agreemntrec . 1 dwcharges = control rec . ldw_dai 1 y_chg * 
agreemntrec,daysused; 

} else agreemntrec.1dw_charges =0,0; 

if ( (IS_PH0NE_L0ST ) && (agreemntrec.remarks5[0] != 'Y’) ) /* rem 

5 is Idw*/ 

agreemnt rec . equi pchg += controlrec ,.l ost_phonemehg ; 


/* 


round_f (^agreemntrec.equipchg); */ 


agreemntrec.dlyphochg = controlrec,phone_daily_chg * 
agreemntrec.daysused; 

/* round_f (&agreemntrec.dlyphochg); */ 



if 


(agreemntrec.discount != 0) { 

agreemntrec.dlyphochg = agreemntrec.dlyphochg - 

( agreemntrec,discount/1 00 * 
agreemntrec.dlyphochg);. 

round_f (^agreemntrec.dlyphochg); */ 


} 


agreemntrec.subtotal 
agreemntrec . rninphochg + 

agreemntrec adjustment * -1 .0 


agreemnt rec.dlyphochg + 

agreemntrec.equipchg + ( 
)+ agreemntrec.ldw_charges; 


/* round_f (&agreemntrec.subtotal)* */ 


/* calculate tax rates and total taxes */ 


agreemntrec.federal_tax_air = agreemntrec.minphochg * 
controlrec.federa!_tax_air; 

agreemntrec.federa1_tax_rent = agreemntrec.d1yphochg * 
controlrec.federa1 tax rent + 


controlrec.federal_tax_rent; 

agreemnt rec.f edera1_tax 
controlrec.federal tax lost; 


agreemnt rec.1dw_charges * 
lost = agreemntrec.equipchg * 


agreemnt rec . state__tax 
controlrec.state_tax_air; 

agreemnt rec,state_tax 
controlrec.state^tax^rent + 

controlrec.state_tax_rent; 

agreemnt rec.state_tax 


air = agreemntrec.minphochg * 
rent = agreemnt rec.d1yphochg * 
agreemntrec.ldw_charges * 

1ost = agreemnt rec.equipc hg * 



ENDAGR.C 


controlrec,state_tax - lost; 

agreemnt rec.local_tax_air = agreemnt rec.minphochg * 
controlrec.local_tax_air; 

agreemntrec.1 oca 1_t ax_rent = agreemnt rec.d1yphochg * 
controlrec.1ocal_tax_rent + 

agreemnt rec . ldw__charges * 

centrolrec.1 oca 1_tax_rent; 

agreemntrec.1 oca 1_tax_1ost = agreemntrec.equipchg * 
controlrec.1 oca 1_tax_lost; 

agreemntrec.city_tax_air = agreemntrec.minphochg * 
controlrec,city_tax_air; 

agreemntrec.city_tax_rent = agreemnt rec.dlyphochg * 
controlrec.city_tax_rent + 

agreemnt rec.1dw_charges * 

controlrec.city_tax_rent; 

agreemnt rec.city_tax_lost = agreemnt rec.equipc hg * 
controlrec,city_tax_lost; 


agreemnt rec.gross_tax_air = (agreemnt rec.state_tax_air + 

agreemntrec.city_tax_air + 
agreemnt rec.1 oca 1_tax_air + 
agreemntrec.minphochg) * 

cent rol rec , gross _tax__a i r ; 

agreemntrec,gros$ w tax_rent= (agreemnt rec.state_tax_rent + 

agreemntrec.city_tax_rent + 
agreemntrec.1 oca1_tax_rent -fr¬ 
ag reemn tree .dlyphochg + 
agreemntrec.ldw_charges) * 

controlrec.gross_tax_rent; 

agreemntrec.gross_tax_lost =(agreemntrec.state_tax_1ost + 

agreemntrec.city_tax_lost -fr¬ 
ag reemnt rec . 1 oca 1 _tax_l ost -fr¬ 
ag reemn tree .equipchg ) * 

controlrec.gross_tax_lost; 

agreemntrec.total_tax - agreemntrec.federal_tax_air + 

agreemntrec.federal_tax_rent + 
agreemntrec.federal_tax_lost + 
agreemntrec.state_tax_air + 
agreemntrec.state_tax_rent + 
agreemntrec.state_tax_1ost + 
agreemntrec.local_tax_air + 
agreemntrec.local_tax_rent + 
agreemntrec . 1 oca 1 _tax__ 1 ost + 
agreemntrec.city_tax_air + 
agreemntrec,city tax rent -fr¬ 
ag reemn tree .city_tax_lost + 
agreemnt rec.gross_tax_air + 
agreemntrec.gross_tax_rent -fr¬ 
ag reemntrec.gross_tax_lost ; 
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/* round_f (kagreemntrec . total _ta;<) ; */ 

agreemntrec.netdue = agreemntrec.subtotal + agreemntrec.total_tax; 
/* round_f (&agreemntrec.netdue); */ 

agreemntrec.amtpaid = g I oba1 amount_paid; 

agreemntrec.amtowed = agreemntrec.netdue - global_amount_paid; 

if (agreemntrec.amt owed != 0.0) 

update_tau_status (4, ’8’); 

other_charges = ( agreemntrec.adjustment * -1.0 )+ 
agreemntrec.equipchg; 


strcpy (agreemntrec.preparedby, returned_to); 


agreemntrec.phochgday = controlrec.phone_dai1y_chg; 

agreemntrec.calls_made = (float) number_of_calIs; 
agreemntrec.basecost = base_cost; 
agreemntrec.long_dist = long diet; 


} 


if ( (agreemntrec.nobatrent > agreemntrec.nobatrtn) || 

(agreemntrec.nochgrent > agreemntrec.nochgrtn) ){ 
update_tau_status (1,'4'); 

} else update_tau_status (!,' ' ); 


/*- 

int day in_year : Takes YYMMDD 


int day_in_year (char *d) 

{ 

int 11, 12; 
int days; 


char 


temp[5] ; 

temp[2] = \\0 1 ; 
temp [0] = d [2] ; 
temp[1] = d[3] ; 
tl = atoi (temp); 
temp [0] = d [4] ; 
temp[1] = d[5] ; 
t2 = atoi (temp); 


days = 0; 
days = adddays ( 
days = days + t2; 
return days; 


tl); /* days in months to previous month */ 
/* add in day of up to now */ 


} 
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/*- 

add_seconds 

) 


add seconds to a time in format HH:MM(A/P) to HH:MM:SS(A/P 


■*/ 


add_seconds (char *s) 

{ 


s[9] 

s[8] 

s[5] 

s[6] 

s[7] 


' \ 0 ' ; 
s [ 5 ] ; 


— I _ t 


♦ * 


'O' ; 
'O’; 


} 

- 

add_days ; recurrsive function to add up days 


/ 

int 

{ 


add_days (int month) 

if (month == 0) { 

return 0 ; 

} else { 

switch (mont h) .{ 


} 


} 


case 

1 : return 

break; 

c 

31 

4 

add_days ( 

—month)) ; 

case 

2 : return 

break; 

c 

28 

4 

add days ( 

— mont h)) ; 

case 

3 : return 
break; 

c 

31 

+ 

add_days ( 

— month) ) ; 

case 

4 : return 

break; 

c 

30 

4 

add^days ( 

—mont h) ) ; 

case 

5 : return 
break; 

c 

31 

4 

add_days ( 

— mont h) ) ; 

case 

6 : return 

break; 

c 

3 0 

4 

adddays ( 

— mont h) ) ; 

case 

7 : return 

break; 

c 

31 

4 

add_days ( 

—mont h) ) ; 

case 

8 : return 
break; 

c 

31 

4 

add_days ( 

—month)) ; 

case 

9 : return 
break; 

c 

30 

4 

add_days ( 

—mont h) ) ; 

case 

1 0; return 
break; 

c 

31 

4 

add_days ( 

—month) ); 

case 

11 : return 
break ; 

c 

30 

4 

add_days ( 

— month )) ; 

case 

12: return 

( 

31 

4- 

add days ( 

— month) ); 


break; 


} 


/*- 

entry_level_end : legitimate employee ? 


*/ 
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int entry level_end () 

{ 


wintype win,win2; 
int key, iostat; 
char code[4] ; 

strcpy (code," " ) ; 

win = windowopen (&entry_win); 

settit1e (win,"Entry Level",CenterUpperTit1e); 
cursoron (); 

key - get_line (code,20,1,3,win # "Enter Your ID Code --> ") 
if (key -= K„F2) return FALSE; 
fcopy (rapersonrec.rapid, code, 3); 
i os tat = exact key 9 ( f d_raperson , &rapersonrec ) ; 

windowc1ose (win); 
if (iostat < 0) 


} 


return FALSE; 

strcpy (returned_to,code); 
return TRUE; 


/* - 

1oad_agreemnt 


load up an agreemnt 


*/ 


int 1oad_agreemnt (int key) /* key = 1 agreeno key = 3 phoneno */ 

{ 

int iostat,found; 

wintype win2; 

char agreeno_save[20]; 

struct agreemnt„def temp_agreemnt; 


found FALSE; 

iostat = reset _fi1e9 (fd_agreemnt,&temp_agreemnt); 

if (key ” 3) { 

selectinx9 (fd_agreemnt,3); 

iostat = 0; 


Agreement!"); 


iostat = exactkey9(fd agreemnt, &agreemntrec); 
if (iostat < 0) { 

win2 = note ("Can't Find 

gotoxy (10,3); 
gotoxy (20,3); 

cprintf ("Press ESC to continue") 

gotoxy (1,4); 

cprintf ("%d",iostat); 

getch(); 

windowclose (win2); 

} else found = TRUE; 
do{ 


moveX(agreeno_save,agreemntrec.agreeno,13); 

iostat = nextkey9(fd agreemnt, 


(yagreemntrec ) ; 


if (iostat 


0 ){ 
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moveX(agreeno_save,agreemntrec,agreeno,13); 

> 

} 

while (iostat == 0); 

se1ectinx9(fd_agreemnt, 1); /* read 

using agreement number */ 

moveX (agreemnt rec.. agreeno, agreen os a ve , 1 3 ) 
iostat = exactkeyS(fd_agreemnt, 

&agreemntrec); 

} 

if (found) { 

w_'log_end (AGREEMENT STEP) ; 
return TRUE; 

> 


} 


return FALSE; 


do cti end 


/ 

int do_cti_end () 

{ 

chap s[80],s1[80]; 

gbaserec r; /* a call listing data base structure, gbase.c */ 

char ch,key; 

int done = FALSE; 

CTI_wt = windowopen (&CT.I win); 

settitle (CTI_wt,"Telephone Return", Cent erllpperTi t le) ; 
centerPrint (50,"STEP 1 -> Place Phone in CTI“); 
note_wt = windowopen (&note win); 

settitle (note_wt,"CTI Process ",CenterUpperTitle),- 
gotoxy (1,2); 

centerPrint (60,“Do NOT Remove Phone From CTI! 1 '); 
gotoxy (1,3); 

centerPrint (60, “Wait One Moment!''); 


* 


end_rtb (); /* do phone check in */ 

windowclose (note_wt); 

/* call rec is global and errors are returned in 
attached_records */ 

if ( (call_rec.attached_records == -25) ) { 

1ost_phone_message (); 
derive_fields_end. (); 
deriveother (); 

add_upd_agreemnt (4); /* phone broken, can't communicate 

*/ 

* 

do_credi t__e n d ( ) ; 

if (!CARD_APPROVED) update^tau.status (4, f 8'); 
if (print contract (?,FALSE) ! = 0) { 

errrtn ("Could Not Print Receipt!"); 
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update_tau_status (2, * 5’) ; 

} 

addupdagreemnt (4); 
system (“ccopyit agreemnt"); 
system ("ccopyit phone"); 
system ("ccopyit cal 1rec.dat" ) ; 
return FALSE; 


%d) 


if ( (ca11_rec.attached_records == -29) ){ 

lostphone message (); 

IS_PHONE_LOST = TRUE; 

derivefieldsend (); /* fill in fields */ 

deriveother (); 
do_creditend (); 

addupdagreemnt (3); /* phone lost = 3 */ 

if ( !CARD_APPROVED) update_tau_status (4/8'); 
if (print_contract (2,TRUE) != 0) { 

errrtn ("Could Not Print Receipt!"); 
update tau_status (2,'5'); 

> 

add_upd_agreemnt (3); 
system ("ccopyit agreemnt"); 

system ("ccopyit phone"); 
system ("ccopyit cal 1rec.dat"); 

IS_PH0NE_l.OST = FALSE; /* reset flag */ 
return FALSE; 

} else 

if (call_rec.attached_records < 0) { 

sprintf (s,"Sorry - you must start the rental over, (error 
ca11_rec.attachedrecords * -1); 

. errrtn (s ) ; 
return FALSE; 

} 

w_log_end (CTI_STEP); /* log step done */ 
return TRUE; 


/* - 

do credit end: 


do credit authorization 


*/ 


do_cred1t_end () 

{ 

char s[80],temp[20],ch,response[80]; 

char temp_authnumber[80]; 

int done,stat,RETRY_CREDIT = FALSE; 

int yesno = FALSE; 

float f; 

wintype win 1; 


ret ry: 


yesno = FALSE; 

agreemntrec.credit attempted[0] = 'V'; 

if (agreemntrec.efundtrans(0) =~ 'Y') { 

strcpy (errmessage,“Credit Auth. 


Already Approved For This 










j 2£»3 
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Contract!"); 

errrtn (errmessage); 

X P *| (3 

-if ( ! w_1 s_ I ogged_end (CREDIT STEP)) { 

gotoxy (5,2); 

st rc py (s,"Co 11ecting $ ); 

sprintf (temp,"%-4.2f",agreemntrec.netdue); 

strcat (s,temp); 

strcat (s, .Continue ? (Y/N)? ); 

error wt = windowopen (&error_win); 

sett 1 tie (error_wt,"Note”,CenterUpperTitie); 

beep (); 

gotoxy (5,2); 

if (yes no (s,TRUE) ) { 

yesno = TRUE; 

windowc1ose (error^wt); 

note_wt = note (“Wait While Credit 

Authorization Is Processed!"); ored t „ w1ndowop8 n ( &<J redit_w1n) ; 

settitle (credit_wt,"Credit Card 

Authorization".CenterU PP erTitle)^ EDiT ^ wiN ^ opEN ^ m)E; 

W 1n1 = windowopen (&card_win); 
settitle (winl,"Authorizing 


Card",CenterUpperTit1e); 


got oxy (1,3); 

strcpy (s," Card No: "); 

strcat (s,agreemnt rec.creditno); 

cprintf ("%s-,s); 

got oxy (1,2); 

strcpy (s,“ Name; ); 

strcat (s.agreemntrec.custname); 

cprintf ("%s", s); 

gotoxy ( 1 , A ) ; 

strcpy (s,” Expr: ); 

strcat (s,agreemnt rec.expiredate); 

cprintf ("%s“,s); 


strcpy 

(agreemntrec.approved,agreemntrec^reapprovcd)^ ^ crecHt 
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agreemntrec.approved, 
0=com1 l^com? */ 


response 

1 ); /* 


agreemnt rec.netdue; 


use (win 1 ) ; 
wlndowclose (winl); 
if (CARD_APPROVED) { 

w_log_end (CRED.tT_STEP) ; 
agreemntrec.efundtrans[0] = ' Y’; 
global amount_paid = 

} 


% */ 


use (notewt); 
windowclose (note_wt); 

} else windowclose (error_wt); 

} else { 

strepy (errmessage,"Credit Authorization Already Done!"); 
errrtn (errmessage); 

} 

done = FALSE; 

if ( (!CARD_APPROVED) && (yesno) ){ 

note_wt = windowopen (&note_win); 

setti 11 e (note_wt, “ Credit Card Message , CenterUpperTi11 e) 
gotoxy (1,1); 

centerPrint (60,response); 
gotoxy (1,3); 

centerPrint (60,"Press ESC to Exit or Swipe a Card!"); 

whi1e (!done) { 

ch = getch(); 

If (ch == '%’) { 

ungetch(ch); /* put back the 


read_in _card(agreemntrec.creditno, 


agreemnt rec,custname, 
agreemntrec,expiredate, 
agreemntrec.credittype); 
(agreemntrec . cus tname, 24 ) ,* 
(agreemntrec.custname); 


capAdjust 

shorten_blanks 

text background (Black); 
done = TRUE; 

RET RY_CREDIT = TRUE; 

} 

if (ch == K ESC) { 
done = TRUE; 

) 


} 


Page 14 



ENDA6R.C 


windowclose (notewt); 
use (credit_wt); 

} 

if (RET RY_CREDIT) goto retry; 


/* - 

do data end 


/ 

do_data_end ( ) 

data_wt_end = windowopen 
settitie (data_wt_end, Data 
data end (); 


} 


(&data_win _end ) ; 

Entry Screen " ,CenterUpperTItie) ; 


x 


- - 

data_end ___* j 

data_end () 

{ 

char s[80]; 
int FIELD = 1; 
int done; 

cursoron (); 
done = FALSE; 
disp1ay_scr1_end (); 

disp 1 ay_va 1 ues_scr1_end(); 

get_data„end (); 

} 

•mm* 4 * 

dispiay_scr1_end() ___ 

_*/ 

display_scr1_end() 

use (data_wt_end); 
gotoxy (5,2); 

cprintf ("Customer Name: " ); 
gotoxy (5,3); 

cprintf ("Card Number : “ ); 

gotoxy (5,4); 
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cprintf ("Rented"); 
gotoxy (30,7); 

cprintf ("-" ) ; 

gotoxy (5,8); 

cprlntf ("No. Chargers :"); 

gotoxy (5,9); 

cprintf ("No. Extra Batteries :"); 

gotoxy (5,11); 

cprintf ("Discount % :"); 

gotoxy (45,2); 

cprintf ("Phone ft : "); 


gotoxy (45,3); 
cprintf ("Agreement ft 
gotoxy (43,4); 

cprintf ("- 

gotoxy (45,5); 
cprintf ("Days Charge 
gotoxy (45,6); 
cprintf ("Phone Usage 
gotoxy (45,7); 
cprintf ("Other 
gotoxy (45,8); 
cprintf (“Subtotal 
gotoxy (45,9); 
cprintf (“Total Tax 
gotoxy (43,10); 

cprintf (“- 

gotoxy (45,11); 
cprintf (“Net Due 



:") ; 
Chg : " ) ; 
: " ) ; 
: ") ; 





display values scrl end () 


— */ 

display_values_scr1_end ( ) 

{ 

display_card_name end (); 
display_card_number_end (); 
display_card_expr_end (); 
display_agreement_end (); 
display_phone_number end (); 
display_batteries end (); 
display_batteries_rented_end (); 
display_chargers_end (); 
display_chargers_rented_end (); 
display_discount end (); 
display_rtb_charges_end (); 
display_days_charge_end (); 
display_totaltax end (); 
display_other_end (); 
display subtotal end (); 
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> 


display netdue end (); 


/* 


do_cancel_key 


— * / 

do_cancel_key (int *done) { 

if (CARD_APPROVED) { 

errrtn ("Can't Cancel Now!");- 
} else { 

error wt = windowopen (&error_win ) ; 

settitle (error_wt,“ F2 - CANCEL! ",CenterUpperTit1e); 
gotoxy (5,2); 

if (yes_no ("Cancel Return, Are you sure (Y/N)?" ,FALSE)) 

undo_return (); /* in realtime.c */ 

*done = TRUE; 

} 

windowclose (error_wt); 
use (data_wt_end); 

} 

} 


{ 


/* 


do_macro_key 


l*t* M>t 


-* y 

do_macro_key () { 
int stat; 

char errmessage[80]; 
wintype wt; 

stat - w_is_next_end (); 
if (stat < CREDITSTEP) { 

strcpy (errmessage,“Must Enter Chargers and Batteries 

Returned"); 

errrtn (errmessage); 

} el se 

if (stat == CREDIT_S1EP) { 

do_credit_end (); 

} 

if (CARD_APPROVED) { 

add_upd_agreemnt ( 2 ); /* 2 = ending agreement */ 
strncpy (call_rec.agreemntno,agreemntrec.agreeno,13); 
/* as flat file records */ 
if ( !PR INTEDCONTRACT) { 

print_contract (2,FALSE); /* final contract 

printing == 2 */ 

if (prt_error_number != 0){ 

strcpy (errmessage,prt_error_message); 
errrtn (errmessage); 
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wt = windowopen (&note_win); 
settitie (wt,"Bypassing 

Printer",CenterUpperTi11 e); 

beep (); 
gotoxy (1,2); 

if (yes_no ("Do you wish to bypass 
printing the agreement ? (Y/N) " ,FALSE)) { 

PRINTED CONTRACT = TRUE; 


} else 


successful print*/ 


> 

} 

} 

use (data_wt_end) ; 


update_tau_status (2,'5'); 
w_log end (PRINT ING_STEP); 

} 

windowclose (wt); 


w_log_end (PRINTING_STEP); /* log 

PRINTED CONTRACT = TRUE; 


/* - 


do print key 


__ */ 

doprintkey () { 
i n t s t a t; 
wintype wt; 
char errmessage[80]; 

stat = w_is_next end (); 
if (stat >= PRINTING_STEP) { 

add_upd_agreemnt (2); /* 2 - ending agreement */ 
strncpy (call_rec.agreemntno,agreemntrec.agreeno,13); 

/* as flat file records */ 
print_contract (2,FALSE); 
if (prt_error number != 0){ 

strcpy (errmessage,prt_error message); 

errrtn (errmessage); 

wt = windowopen (&note_win); 

settitle (wt,"Bypassing Printer",CenterUpperTit1e) 
beep (); 
gotoxy (1,2); 

if (yesno (“Do you wish to bypass printing the 
agreement ? (Y/N)“,FALSE)) { 

PRINTED_CONTRACT = TRUE; 
update_tau_status (2,'5'); 
w 1oq_end (PR I NT ING_STEP); 

} 

windowclose (wt); 

} else { 

w ._ 1 og end ( PR] NT I NG_ST EP ) ; ‘ /* log successful 


print*/ 
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PRINTED CONTRACT = TRUE; 


} 

} else { 

strcpy (enrmessage,"Do Credit Authorization and Data Entry 
Before Printing!"); 

errrtn(errmessage); 

} 

use (data_wt_end); 

} 

/* - : - 


do_exit_key 


— */ 

/ 

do_exit_key (int *done) { 
int stat; 


char errmessage[80]; 

stat ~ w_is_next_end (); 
if (stat == EX I T STFP) { 

update_tau_status (O^O 1 ); /* phone is in */ 

add_upd_agreemnt (2); /* 2 = ending agreement */ 

strncpy (ca11_rec.agreemntno,agreemntrec,agreeno,13); 

/* as flat file records */ 

saveoa11s_as_f1 at^records (); 

system ("ccopyit agreemnt. " ) ; 

system ("ccopyit phone. " ) ; 

system ("ccopyit ca11rec.dat"); 

*done = TRUE; 


} else 

Printing"); 

} 

} 


{ 

strcpy (errmessage, 
errrtn (errmessage); 


Must Complete Credit Auth. 


and 


/* 


do_ detai1_ key 

— */ 

* 

do_detail_key () { 

show_detail (); 
use (data_wt_end); 
clrscr (); 
display_scr1 end(); 
display values scr1_end(); 


/* - 

do bypass key 
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— */ 

9 

do_bypass_key () { 

char temp[80],errmessage[80]; 

int temp_key f payment_type; /* 1 = cash, 2 = check, 3 = none */ 
wintype wt; 
pick_1ist_type 1ist; 
wintype help wt; 


if ( !CARD_APPROVED) { 

add_to_pick_list (&list,"0ash Payment “,1) ; 
add_to_pick_list ($cl ist, "Check Payment" ,2); 
add_to_pick_list (&list,"NO Payment ",3); 

help_wt = help_window ("Select a payment type and press the 
< ENTER> key"); 


payment^ type = pick_list (Mist ,3, "Payment Type"); 

if ( payment_type == KESC ) { windowclose ( help wt ); return 


switch (payment_type) { 

case 1: 

strcpy (agreemntrec.approved,"CASH"); 
break; 

case 2 : 

strepy (agreemntrec.approved,"CHECK"); 
break; 

case 3: 

st repy (agreemnt rec. . approved , " NONE" ) ; 
break; 

} 

use (help_wt); 
windowclose (help_wt); 

help_wt = help_window ("Press the E3 key when finished"); 
manual_wt - windowopen (^manual_win); 

sett it le ( manual _wt , 11 Non Credit Card Payment" , Cent er Upper Ti t le) ; 

gotoxy (5,1); 

cprintf ("Amount : "); 

gotoxy (5,2); 

cprintf ("Remark : "); 

nulInfield (temp,80); 

temp_key ™ K_ESC; 

use (manual_wt); 

global_amount_paid = 0.0; 

while (temp_key != K_F3) { 

null__field (temp,80); 

sprintf (temp,"%4.2f",global_amount_paid); 

temp_key = get_line (temp,5,1,7,manua1_wt,"Amount : "); 

global_amount_paid = atof (temp); 

if (temp_key != KF3) { 

null_field (temp,80); 
strcpy (temp,agreemnt rec.remarks4); 
temp_key = get_line 
(temp,5,2,30,manua1 _wt, "Remark : "); 

strcpy (agreemnt rec.remarks4,temp); 



if ( (global amount paid > agreemntrec.netdue) ) { 



Page 20 


S- 



ENDA6R;C 


greater than 
due) ; 


sprintf (temp/* Amount paid, %4 . 2f, is 
the total bill, %4.2f",globa1_amount_paid, agreemntrec.net 

ermtn (temp) ; 
temp_key = K_ESC; 

} /* require something typed in remarks4 */ 

if ( (global_amount_paid < 0.0) ) { 

errrtn ("Amount paid cannot be negative, 
tempkey « KESC; 

} 

if ( (agreemntrec.remarks4[0] =- * ') || 

(agreemntrec.remarks4[0] == f \0 f ) ) temp key = 



} 

windowclose (manua1 wt); 
windowclose (help_wt); 

CARD„APPROVED = TRUE; /* done and approved */ 

w_logend (CREQIT_STEP); /* log credit */ 

if (!CREDIT_WIN OPEN){ 

credit wt = windowopen (&credit win); 
settitie (credit_wt,"Credit Card 
Authorization",CenterUpperTit1e); 

} 

use (credit_wt); 
clrscr (); 

cprintf (" Authorization Number : %s",agreemntrec.approved); 

use (data_wt_end); 

} else { 

st rcpy (errmessage,"Payment a1 ready completed!"); 
errrtn ( er rmessage) ,* 

> 

} 


/* 


get_data_end 


—*/ 
t 

get_data_end () 

{ 

i nt FI ELD,done,key,stat,temp_key; 
char temp[20]; 
wintype wt; 


display_scr1_end(); 
disp'lay_va1ues_scr 1_end( ) ; 

FIELD = 1 ; 
done = FALSE; 
whi1e (!done ){ 

switch (FIELD) { 

case 1: key = get_chargers_end (); 

w_log_end (CHARGERS_STEP); 
break; 

case 2: key = get_batteries_end (); 
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w Iogend (BATTER1ES_STEP); 
break; 

case 3: key = get_discount_end (); 

break; 

} 

derive other (); 
display_va1ues_scr1 end(); 
if (key == K_F1) { 

he!p_list end (); 
use (data_wt_end); 

} 

if (key == K_F10) { 

command_1ist_end (); . 
use (data_wt end); 

} 

if (UP_FI EL D) { 

if (FIELD > 1){ 

— FIELD; 

} else 

if (FIELD == 1) FIELD = 3; 

} 

if (DOWN_FI ELD) { 

if (FIELD < 3) { 

++FIFLD; 

} else 

if (FIELD == 3) FIELD = 1; 

1 * 

== K_E?) docancel_key (&done); 

== FORCFDEXIT) done = TRUE; 

=- K_F3) do_macro_key (); 

-= K_F4) { 
do_remarks (); 
use (data_wt end); 

== K_F5) do printkey (); 

== K_F6) do_exit_key (Stdone); 

=- KE7 ) 

if ( !CARD_APPROVED ) { do_detai1_key (); 

} else errrtn ("No changes in the bill can be made 

== KF8) do_bypass_key (); 

== K_F9) { 

w_next_end (&FIELD); /* in whatnext.c *■/ 

use (data_wt end); 


} 

if (key 

if (key 

* 

if (key 
if (key 

> 

if (key 
if (key 
if (key 

at this point!"); 

if (key 
if (key 
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} /* while loop end */ 

} 

/* - 


command list end: show command list 


—*/ 

command_list_end () 

{ 

char c; 

commands_wt = windowopen (&commands_win); 

settitle (commands_wt, 11 Commands List ", CenterUpper Title); 


gotoxy 

(i 

, 2 ) ; 





cprintf 

( 

II 

FI 

- Quick Step Help”); 



gotoxy 

(i 

, 3 ) ; 





c p r i n t f 

( 

it 

F2 

- Cancel, 'Get Me Out Key' 

“ ); 

gotoxy 

o 

,4); 





cprintf 

( 

II 

F3 

- Finish Key"); 



gotoxy 

(i 

5}; 





cprintf 

( 


F4 

- Add Remarks To Contract' 1 

); 

gotoxy 

(i 

. 6 ); 





cpri ntf 

( 


F5 

- Print Receipt"); 



gotoxy 

(i 

. 1 ) ; 





cprintf 

( 


F6 

- Exit, 'J am all done!’ 

") 

4 

J 

gotoxy 

(i 

8 ); 





cprintf 

( 


F7 

- Show Detailed Billing" 

); 


gotoxy 

a 

, 9 ) ; 





cprintf 

( 


F 8 

- Non Credit Card Payment" 

); 

gotoxy 

(i 

, 1 ° ) ; 





cprintf 

( 


F9 

- What Do I Do Next (?) 

Key"); 

gotoxy 

(i 

, 1 1 ) ; 





cprintf 

( 



ESC - EXIT " ) ,- 




while ((c = getch ()) != KESC) ,- 

windowclose (commands wt); 


help_1istend: show command list 


__*/ 

hel p_list_end () 

{ 

wintype win; 
char c; 

commands_wt = windowopen (&commands_win); 

settitle (commands_wt," Quick Step Help “,CenterUpperTitle); 
gotoxy (1,1); 

cprintf (“ STEP"); 

gotoxy (1,2); 

cprintf (" -"); 

gotoxy (1,3); 
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1 - Put Phone in CTI Box"); 

2 - Enter Batteries, Chargers Rtnd"); 

3 - Press F3 To Finish"); 

6 - You're all done!"); 


- EXIT "); 


cprintf (" 
gotoxy (1,4); 
cprintf (" 
gotoxy (1,5); 
cprintf (" 
gotoxy (1,6); 
cprintf (" 
gotoxy (1,10); 
cprintf (“ 
while ((c = getch ()) != K_ESC) ; 

windowclose (commands wt); 




} 


/*■ - 

display_remarks; show remarks screen 


*/ 

display remarks () 

{ 

gotoxy (42,2); 
textbackground (BLUE); 
cprintf ("ESC"); 
textbackground (8LAGK); 
cprintf (" - Exit"); 
textcolor (WHITE); 
display_remarks1_end (); 
display_remarks2_end (); 
display remarks3_end (); 


do remarks; Allow Data Entry For Remarks 


*/ 

do_remarks () 

{ 

int FIELD,key,done; 

done = FALSE; 

FIELD = 1; 

remarks_wt = windowopen (&remarks_win); 

settitle (remarks^wt,"Add Remarks To Contract“,CenterUpperTit1e); 
display .remarks (); 
whi1e (!done) { 

switch (FIELD) { 

case 1: key = get_remarks1_end (); 

break ,- 

case 2; key = get remarks2_end (); 

break; 

case 3; key = get_remarks3_end (); 

break; 

} 

if (key == K_ESC) 

done -- TRUE; 








Page 24 


ENDAGR.C 


if (key == K_F2) 

done = TRUE; 
if (key == K_F6) 

done = TRUE; 
if (UP_ FI ELD) { 

if (FIELD > 1){ 

—FIELD; 

} else 

if (FIELD == 1) FIELD = 3; 

} 

if (DOWN FI ELD) { 

if (FIELD < 3) { 

++FIELD; 

} else 

if (FIELD == 3) FIELD = 1; 

} 

} /* end while */ 
windowclose (remarks wt) ; 
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^ ^i ^ ^ ^ J*^ y ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^T 1 - 'T'' 'T' ^ ^ m'' ^ ^ ^ ^ ^ * *■ T" ^ ^ ^ ^ ^ *T‘ ^ ^ ^ 

** / 

/* 

*/ 

/* PRO-C - Copyright (c) 1988 Vestronix Inc. 

*/ 

/* 18 OCT 88 
*/ 

/* 

*/ 

* 

/ >!^ ^ j^ > *1 * o j j Uj >j* ^1. ^ ^ ^ fcj.* *j^ -j» ^ «.r» ^|- -1^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ --Jj* ^ ^ ^ ^ ^ ^ i^/ ^ ^ ^ ^ ^ >^- hXt ^ 

^ ^ ^ ^ ^ y^\ ^ ^ ^ ^ ^T* / T* ^ ^v ^ ^f% ^ ^ ^ ^ ^ *y* ^ ^ ^ ^ ^ ^ ^ ^ -T* ^ ^ ^ -T* ^ ^ ^ ^ ^ *T* ^ ^ *T* ^ ^ ^ ^ m' ^T' •'T 1 

** / 

/* Procedure Name : FCOPY 
*/ 

/* 

*/ 

/* This routine is used to copy null terminated strings into a 

*/ 

/* a field of a file record. The destination field is then padded out 
*/ 

/* to a len of DLEN with nulls. 

*/ 

/* 

*/ 

/* Parameters: 

*/ 

/* 

*/ 

/* NAME! TYPE DESCRIPTION 

*/ 

*/ 

* 

/* DEST STRING Destination field. 

*/ 

/* 

*/ 

/* SRC STRING Source string. 

*/ 

/*' 

*/ 

/* DL.EN INI Length of destination field 

• V 

/************ * * *** * ************ * * ***** * ******* ** **** ****** * * *** **** * * * * 
** / 

/* L INTLI DRARY */ 

^include <stdio.h> 

^include <bench.h> 


TYPE 


DESCRIPTION 


DEST 


STRING 


Destination field 


SRC 


STRING 


Source string . 


DL EN 


INI 


Length of destination field 


char *fcopy(dest, 
char *dest; 
char *src; 
int dlen; 


src, dlen) 


char *p = dest; 
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if (src != NULL) 

while (*src != 
*dest++ 


’\0' && dest 



< p + dlen) 


while (dest < p + d'len) 
*dest++ = *\0'; 

return(dest); 


*1 
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/XXXX( c y XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XX / 

/* 

*/ 

/* PRO-C - Copyright (c) 1988 Vestronix Inc. 

*/ 

/ 

/* 18 OCT 88 

*/ 

/* 

*/ 

^r «Xf *-J j 

'T* #y* ^T'm' **' *T* ^T' ^h, ^s. ^T* *f% ^w* ^T' ^T* *T* 

**/ 

/ 

ftinclude <bench.h> 
ftinclude <ctype.h> 

/* Function prototypes */ 
ft ifdef ANSI 

static char fmtwd(char * ,char *); 
static void reverse(char *); 
ft else 

static char fmtwd(); 
static void reverse(); 
ft end if 

int negative - FALSE; 
static int sign_done; 

char *fmt_f1t(double, char *); 

char *fmt_flt(n, mask) 
double n ; 
char *mask; 

{ 

return(fmt_dbl((double)n, mask)); 

} 


char *fmt_dbl(num, msk) 
double num; 
char *msk; 

{ 

char c, *p, dc , *dp; 
char num![81], *numr; 
static char maskl [41]; 
char *maskr; 
int overflow = FALSE; 

/x break the mask into two parts,, one for each side of the decima 

*/ 

strcpy(maskl, msk); 

for(dp = maskl; (dc = *dp) ! = '\0' && dc *! = '.'; ++dp) 


* 
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1 f (dc ! = ' \0 ' ) 

*dp+ + = '\0'; 

maskr■ = dp; 

/* find out how many decimal places were requested */ 

for(p = maskr; (c = *p) •“= ' 9 ' | | c == ' z 1 | | c = - T- • ++ P) 

* 

J 

/* under TC, the following are true: -0 != 0, -(-0) == -0 */ 

/* <^o check for -0 here and set it to 0 to prevent trouble */ 

if(num == -0.0) 

num = 0,0; 

/* convert number to non-negative and remember sign */ 

if(negative = (num < 0.0)) 

num = -num; 


/* -|et sprintfQ do the work of actually converting it */ 
sprintf(numl , "%.*lf", (int ) (p-maskr), num); 


decimal 


/* break the number into two parts, one 

% f 

for(p = numl; (c = *p) != ’\0’ && c != 


for each side of the 
.’; ++P> 


i f ( c != ' \ 0 ' ) 

*p++ = '\0' ; 

numr = p; 

/* remove any trailing 0s for now, format '9' will restore them */ 
/* 

* This bit is obsolete and doesn't work. 

* 

for(p += strlen(p) - 1; *P == ’O'; P) 


*+-tp = '\0'; 

*/ 


/* format each half separately, 


leaving the result in the mask 


argument */ , , . . , - -i 

/* note that both parts are formatted from the decimal 

outwards */ 

sign_done = FALSE; 
reverse(num1 ) ; 
reverse(maskl); 

overflow = (fmtwd(numl, mask!) != '\0'); 

reverse(maskl); 


point 


/* the part to the right of the decimal CANNOT overflow */ 
( void)f mt wd(numr t maskr); 

/* put the decimal point back in and return the result */ 

if(dc != '\0’ ) 

d p [ -1 J = ’ • ’ ; 
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/* put In a sign if negative, there is none yet, and there is room 


if(negative && 

for(p = 

i f ( p 

el se 


! sign_done) 

maskl; *p - 

* 

> 

maskl) 
overflow = 

*- n - • _ ' . 


_t i 


TRUE; 


■f+p) 


/* set overflow indicator if overflow occurred */ 
if(overflow) 

*maskl = 1 ? * ; 

return(maskl); 


static char fmtwd(nurn, mask) 
char *num, *mask; 

{ 

char me, nc, *root; 


root = mask; 

while((mc - *mask) != '\0’) { 

switch (me) { 
case 1 9': 
case r Z 9 : 


or 1 * */ 


encountered */ 


case 1 7 . 1 


eg. 711-1111 */ 


/* copy in digit if any 1eft,•otherwise copy 'O' 


if((nc = *num) !~ ’\0 ' ) { 

++num; 

*mask = nc; 

} 

else 

*mask = (me == *9') ? 'O 1 

break; 


t i 


case 1 + 1 ; 


t i 


case 


/* treat as a sign oniy if this is the. first one 
if (!sign_done 

/* next line allows non-sign + or - inside a num 
&& mask[1] != '1' && mask[1] != 'z' && mask[1] != 


* n i 






■ 4j * 13 ' .^j ■■ j. i mw^* m 'juw * 




/ * 




i n—--- ~ ~ fc -■ t - tii 


I t 


); 


be a zero */ 


’Z’)) 


} 


case 


, It '4 


50 ; 
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for(p = mask; —p >= root && *p — ' '; ) 


*mask - 




*++p = negative ? ' — 1 t ((me + ) 


i . i 


7 1 + 


> 


break; 

* * . 

/* don't want to delete comma if there is going to 

=» '\0' && (mask[1] == II mask[1] =~ 


if(*num 


*mask - 


t t 


break; 


default: 


/* simply leave the character as is */ 
break; 


} 

++mask; 


/* return next character in number; this is used to detect 

overflow */ 

return(*num); 

} 


/* not a very general function, but it s only 
static void reverse(str) 
char *str; 


ly used in this file */ 


{ 


} 


char tmp, *estr; _ c+-r>++'i 

for (estr = str + strlen(str) - 1; estr > str; estr , ~tr ) 

tmp = *est r; 

*estr = *str; 

♦str = tmp; 

} 


{ 
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/* 


MODULE : gbase.c .... Phone Call Sequential data.base. 

Written By : Greg McGregor 1990 

PURPOSE: 


size. 


versus 


or 


It a sequential data base for storing phone.calls. 

The neat thing about this is that every gbaserec is of different 

So, all records stored on disk and in memory are of variable length. 
This saves having to allocate 250K for a record on disk for 1 call 

1~2K for the record. However, it is slow when a record is updated 

added. It has to rebuild the entire database. (A tradeoff) 


REVISED: What was revised? 

GMM 7-30-1991 Nothing 



ftinclude 
Hind ude 
ftinclude 
ftinc1ude 
ftinclude 
ftinclude 
ftinclude 
ftinc1ude 
ftinclude 
ftinc1ude 


<std io.h> 

<st d 1 i b . h> 

<conio.h> 

<dos.h> 

<fcnt1.h> 

<sys\stat.h> 

<al 1 oc . h> 

<mem.h> 

<string.h> 

<\h2\ma11 oc\ga11oc.h> 


ftdefine TRUE 1 
ftdefine FALSE O 

/* 

* record type 
*/ 

typedef struct record_ty pe__node { 

char tau_id[5]; 
char agreeno[20]; 
char number[40]; 
char start_time[10]; 
char end-time[10]; 
char date[10]; 
f.l oat 1 engt h ; 
float actua1_secs; 
float 1 engt h__secs ; 
float total_cost; 
float long_dist_cost; 
float base_cost; 
char flag; 


/* tail id */ 
/* agreement number */ 

/* allow for country */ 

/* start time */ 

/* end time */ 

/* date of call */ 

/* length of call minutes*/ 
/* actual call in seconds */ 
/* length in seconds */ 

/* total cost of call */ 

/* long distance charges */ 
/* base charges */ 

/* flags see flags */ 
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struct record_type_node *next; 
} record_type; 


* typedef gbaserec KEY RECORD 
*/ , 

typedef struct grec i ,* t f attached records */ 

int attached.pecords, / * - f entip0 record block */ 

long size_of rec, INKED List of records */ 

record_type *rec; / 

char agreemntno[20'J ; / string / 

} Q h) s 0 r* 0 c j * « 


/* 


* FLAGS Variable 
*/ 


/* 


bit 0 = ROAM ON; 

bit 1 = Call with no connect 

bit 2 = Out of memory 

bit 3 = TBD 

bit 4 = TBD 


to cell; 


*/ 


/* 

* functions 
*/ 


recora_ 


d type *g_get_caVI (gbaserec rec, int num); 


/* 

* GLOBALS 

int open_file = FALSE; 
int open_f11 • 
int temp_file_fd; 
record_type *new_rec () 

char fnaine[] = 
int file_flags; 


t b.1st" ; 


gbaserec holding_rec,test ; 

/* 

* Last Includes 
*/ 

^include <time.h> 

^include <\h 2 \hdr\windows> . 
^include <\h 2 \hdr\extnvar.h> 
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/* 

4 

* 

main ( ) 

{ 

int i; 

reconci^type *s ; 

system ("del temp.xxx"); 
system ("del rtb.lst"); 

C1rscr (); 

if ( (i - cj^open (" rt b . 1 st" , 0 RDWR ,.&hol di ng^rec ) ) == -1) printf 
("\nerror") ; 

s = new_rec () ; 

strcpy (s->number,"415-838-2400" ) ; 
ass octree ( &hol di r>g_rec , s ) ; 
s “ new_rec () ; 

strcpy (s->number, M 415-838-2401" ) ; 
assoc_rec (&holding_rec,s); 
s = new^rec () ; 

stropy (s->number,"415-838-2481 ") ; 
assoc_rec (^holding _rec,s); 
strcpy (holding_rec.agreemntno,"SHIT 1“); 
g_put (holding_rec); 

strcpy (holding_rec.agreemntno,"SHIT2"); 
g_put (hoiding_rec); 
g_close (i); 

if ( (i = g_open ("rtb.1st",0_RDWR,&hoTding_rec ) ) == -1) printf 
("\nerror"); 

strcpy (test.agreemntno,"SH1T2"); 
g_get (&test) ; 
s = g_get_call (test,2); 
strcpy (s->number,"111-111-1111"); 
g_c1ose (i); 

} 

* 

*/ 


/* -- - 

new_rec 

__ _*/ 

record_type *new_rec() 

{ 

return (recordtype *)g_malloc (sizeof (record_type)); 

} 


/*- - 

garbage_col1ect ; free up all call records in memory 


garbage_col1ect (gbaserec *call_rec) /* pass by reference MUST */ 

{ 







Page 3 




G8ASE.C 


int i,J; /* no calls made */ 
record type *a call; 


memory 


} 


i = cal 1_rec->attached_records; 
for (j = i;j >= 1;j—) { 

a_call = g_get_call (*ca11_rec,J); /* get a call from 

*/ 


} 


call 


gfree (acall); /* free it from memory */ 

/* reset call_rec info */ 
rec->attached records = 0; 


call rec->rec = NULL; /* null out pointer to calls */ 
cal 1 _-rec->agreemntno[0j = '\0'; /* null agreemntno */ 

/* gbase garbage collecting done*/ 



g_openr flags - 0_R00NLY 0_WR0NLY 0 RDWR 


* 


/ 

i nt 
{ 

int 

int 



} 


gopen (char ^name, int flags, gbaserec *r) 

fd; 
i ; 

if (open^file) return -1; 

if ( (fd = open ( name ,flags)0_BINARY)0_CREAT,S_IREAD|S_IWRITE)) == 

return -1; /* couldn’t open or create the file */ 

r->attached_records = 0; 
r->size_of_rec. » sizeof (gbaserec) ; 
open_file = TRUE; 
open_file_fd = fd ; 
strcpy (fname,name); 
file__flags = flags; 
return fd ; 


/* - 

g_c1ose 


int g_close 

{ 

int i,j; 


} 


-1— f ww IW A* H to m toto tow to>* WWW toto ^to WWW to** MW Wtoto MW to# to>« 

(int fd) 


j = close (fd); 
if (j ~ = “1) return -1; 
open_fi 1 e = FALSE; 
return 0; 




assoc rec: attach record onto gbaserec 
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* / 

/ 

int assoc_rec (gbaserec *r, record_type *a ) 

{ 

i nt i ; 

record_type *x; 

i =: p->attached_records; 
if (1 “ 0) { 

r->rec = a; 

++r">attached_record?; 

r — >s i 7 e of _ r ec =* r->size_of _rec + sizeof (* : a); 
return TRUE; 

} 

/* find place to put record */ 
x - r->rec; 

— i ; 

while (i > 0) { 

x - x~>next; 

— i ; 

} 

x->next = a; 
a~>next ” NULL; 

++r->attached__records ; 

r->size_of_rec = r->size_of_rec + sizeof (*a); 


/* 


g_get : get record from disk 

need in param * r’ tag,?_key 


—*/ 

int g_get (gbaserec *r) 

{ 

long offset; 
gbaserec temp; 
int done,stat; 
int num_assoc_recs; 
record type *rt; 


TRUE; 


done = FALSE; 

Iseek (open_file_fd,0L,SEEK_SE7); /* go to beginning of file 

do { 

stat =read (open_file_fd,&temp,sizeof (gbaserec)); 
if (stat == -1) /* ERROR */ 

return -1; 

if (stat == 0) return -1; /* NOT FOUND*/ 

if (strcmp (temp.agreemntno,r->agreemntno) == 0) done = 

if ( (done) { /* skip associated records */ 

offset = temp.size_of_rec - sizeof (gbaserec); 
Iseek (open_file_fd,offset,SEEK_CUR); 

} 

} while (!done); 






' JH ' 1 LI»?.'.« 9« y.Tr w cypy ;j\ I IICTU i nu-. 
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. . __i .p-orrid if there are some *7 

/* .till have to read in associated record.. 

num.assoc_recs - teen . attached.records : 


If (temp.attached__records 0) return 


/* no attached recs */ 


*r = temp;. 

r->attached_records = , r) . 

r->size_of_rec * sizeof (gbaserec;, 
while (num_assoc_recs > 0) V 

r ta ; file.fd.rt.siteof <record..type», 

if (stat === -1) /* error * / 

return 1; /* fdf */ 

if (stat == 0) ^'’^/J^ttaoh call to record in memory -/ 
assoc_rec (r.rt;, / 

—^num_assoc_recs ; 

> 

return 1; 


.. n0Xt reC ord from disk from current file _ 

g get^next: get next recoru_ 

int g_get_next (gbaserec r) 

int num_assoc__recs , stat ; 

record type *rt; 

■. t *t =. read (open.f 11 e.f d , r , s i * e°f (gbaserec))! 

If'(stat « -1) /* ERROR */ 

return -1; 

if (stat == 0) /* EOF */ 

return 0; . accnciateH records, 

/* still have to read in associate. 


if there are 


>me */ 


/* no attached recs */ 


num_aesoc_recs = r->attaehed_records: 
lf (i—>attached_records ~ 0) return 0; 

r _> a ttached_records = 0: .. 

r ->size_of_rec = sizeof (gbaserec). 

while (num_assoc ..recs > 0) 1 

rt = new rec Os rt, sizeof (record.type)) 

if ( read (open_t i ie_Ta , , 

r8t . U r r " )•’ /* attach call to record in 

assoc_rec (r.rt;. / 

—num_assoc_recs; 

> 

return 1 ; 


== - 1 ) 
memory */ 


} 
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/* 


g_write^temp: put record to disk in temp file, a helper to g_update 


int g_write_temp (gbaserec r) 

{ 

int num_recs; 
r.ecord_type *rt ; 


num_recs = r.attached^records; 

if (write (temp_f i 1 e_f d , &r , s i zeof ( gbaserec ) ) " 

return -1; 
rt - r.rec; 

while (num_recs > 0) { 

if (write (temp_fi1e_fd,rt,sizeof (record 

return -1; 
rt = rt->next; 


_type)) == -1) 


—nurr recs; 


return 1 ; 


/*■ 


g update : update a record to disk 


—*/ 

int g_update (gbaserec 

{ 

long offset; 
gbaserec temp; 
int done,i,updated; 
char sys[HO]; 


done = FALSE; 

updated = FALSE; 

if ( (temp_fi1e_fd = open 

( "temp.xxx",0_WR0NLY|0_BINARY|0_CREAT|0_TRUNC.S_IWRIIE)) 

return -1; /* couldn't open or 


B!S -1) 

create the file */ 


1 seek (open_file fd, 0L ,SEEK_SET) ; 


/* go to beginning of file */ 


do { 


if (g_get_next (&temp) == 0) 

done = TRUE; 

if( (strcmp (temp.agreemntno,r.agreemntno) != 0) && 


(!done) ) { 


} else 


g write_temp (temp); 


if (!updated) { 

gwritetemp (r); 
updated = TRUE; 

} 
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} whi1e (!done); 


close (temp_fi1e_fd ) ; 
g_close (open_fi1e_fd); 

strcpy (sys,"copy temp.xxx "); 
street (sys.fname); 
streat (sys," >out" ); 
system (sys); 


} 


if ( (i = gopen (fname,0 RDWR,&temp)) == -1) { 

printf ("\ng_put: error updating call record data base! 
return -1; 


} 

open_file_fd = i; 
if (g_g©t (&r) == -1) { 

printf ("\ng_put: error updating call record data base! 
return -1; 

> 


return 1; 




/* 


gwrite : write a gbaserec to disk 


__ */ 

int g_write (gbaserec r) 

{ 

int nurn_recs ; 
record type *rt; 


nurn_recs = r . attachecf^records ; 

if (write (open_fi1e_fd,&r,sizeof (gbaserec)) == -1) 

return -1; 
rt = r.rec; 

while (num_recs > 0) { 

if (write (open_f i le_f d , rt , sizeof (record_type) ) == -1) 

return ™1; 
rt “ rt->next; 

—num_recs; 

> 

return 1 ; 


/* - 

g_put : put a record to disk update if record already exists 


--*/ 

int g put (gbaserec r) 
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{ 

long offset; 
gbaserec temp; 
int done,i,updated; 
char sys[80]; 


if (g_exists (r) ) { 

return g_update (r); 

} 

Iseek (openfile_f d,0L,SEEKEND); 
return gwrite (r); 

} 

/* - - 

g_exists t does a record exist 


/ 

int g_exists (gbaserec rec) { 
gbaserec *temp; 

Iseek (openfi1e_fd,OL,SEEK_SET); /* go to beginning of file * 

while (g_get_next (temp) == 1 ) { 

if (strncmp (temp->agreemntno,rec.agreemntno , 13) == 0) 

return TRUE; 

} 

return FALSE; 

Iseek (open_file_fd,0L,SEEK SET); /* go to beginning of file * 

} 


/* - 

g _get_ca11 : 

gets changed 

returned 


get a call 


given a call number identifier 
whatever you change in the return record here 

int the rec you pass not just in what you get 


/ 

9 

record^type *g_get_call (gbaserec rec, int num) 

{ 

i nt i ; 

record_type *temp; 

i = rec.attached_records; 

if ( (i < num) || (num <= 0) ) return NULL; 

/* record doesn't exist so return NULL REC*/ 

i = 1 ; 

temp = rec.rec; 

if (num =-- 1) return temp; 

do { 

temp = temp->next; 

++i ; 

} while (i ! = num); 






il i i 


29 i 
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return temp; /* got and return */ 


/*- 

/ 

save call records 


save_cal1_records 
gbaserec x; 
int fd; 
int stat; 
windef call_win 
RAME, 

wintype call_wt; 


() { 


= {10,8,70,12,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEF 

Whit e,Red}; 


call_wt = windowopen (&call_win); 

settitle (call_wt,"Cal 1 Accounting SystemCenterUpperTi11e); 
gotoxy (1,2); 

c-printf (“ Updating Call Accounting System... ); 

fd = g_open ( " cal 1 rec . dat “ , 0_RDWR, Ixx) ; 
stat = g..put (cal 1 _rec) ; 
if (stat != 1 ) { 

errrtn (“Error In Updating Call Accounting System!”); 

} 

g_close (fd); 
windowclose (ca11_wt); 


^ — — — — — — — — 

1 at (call_rec); 


g_save_as flat (gbaserec call_rec) 

( 

int fd; 

int i,j,s t a t; 

record_type *cal I ; 

fd = open 

(“callrec.dat",ORDWR|OBINARY|0_CREAT|OAPPEND,S_IWRITE|SI READ); 

if (fd <= 0) { 

printf ( "\nERR0R (g_save_as_f lat ).: File Open Error 

CALLREC.OAT"); 

printf (“\n Call Telemac Cellular Corporation 

( 800 )- 236 - 2356 “); 

exit (1); 

} 

i = call rec.attached_records; 

for (j=1;j<=i;j ++ ) { 

= n nor rail Lea'll rec.J): 
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Error CALLREC.DAT"); 


(800)-235-2356 H ); 


} 

} 

close (fd); 
return TRUE; 


printf ("\nERROR (g save as f1 at): File Write 
printf ("\n Call Telemac Cellular Corporation 
exit ( 1 ) ; 



/* - - - 

save calls as flat records 


* 


/ 


save_calls_as_flat_records () { 
gbaserec x; 
int fd; 
i n t s t a t ; 


windef call win 
RAME, 


(10,8,70,12,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEF 


wintype call wt; 


White,Red}; 


call_wt = windowopen (&call_win); 

settitle (ca11_wt,"Cal 1 Accounting SystemCenterUpperTitle); 
gotoxy (1,2); 

cprintf (" Updating Call Accounting System,.."); 

fd = g_open ("callrec.dat",0_RDWR,&x); 
stat = g_save_as_flat (call rec); 
if (stat ! = 1) ( 

errrtn ("Error In Updating Call Accounting System!"); 

} 

windowclose (call wt); 


} 
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getline.c 

getting lines from console 

Written By ; Greg McGregor 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 


-*/ 

* 

fti nc 1ude 
ft i nc l ude 
ftinclude 
ftinclude 
ftinciude 
ftinclude 
ftinc1ude 
ftinclude 
ftinclude 
ftinclude 
ftinclude 
ftinc1ude 
ftinclude 
ftinc1ude 
ftinclude 
ftinclude 


<bios.h> 

<stdio.h> 
<conio.h> 
<string.h> 
<windows.h> 
<misc.h> 
<gkeys.h> 

<t i me. h> 
<whatopen.h> 
<proc.io> 

<bench.h> 
<gbase.h> 
<extnvar.h> 
<agr io.h> 
<agreev3.h> 
<cardrdr.h> 


extern int UP_FI ELD; 
extern int D0WN_FI ELD; 
extern int FI ELD; 
extern W PRINTED; 


/*- 

// Function Name -> capAdjustNoleft 

// Parameters: 

// Function: capitalize but don 1 1 left adjust VS capAdjust function 
// Returns: 

// Written By : Greg McGregor 

// 

- */ 


void capAdjustNoleft (char *s, int max) { 
int i ; 

1 = 0 ; 

while ( (s[i]) && (i <= max) ) { 
if (islower (s[i])){ 

s [ i] = toupper (s [ i]); 

} 

+ +i ; 

} 


} 






Psge 1 
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capAdjust; left justify and capitalize all alpha null ended fields 


void capAdjust (char *s,1nt max) 

{ 

int i , 1 en , J , t, get ..out ; 
get_out = FALSE; 
len = str1en (s ) ; 
i = j = 0; 

while ( (s[i++] == ' ') &fx (!get__out) ) 

if (i > = max) getout = TRUE; /* nothing in field, get o 

ut*/ 

■ 

— T ; 

while (s[j++] = s[i++]) ; 

i ” 0; 

while ( (s[i]) && (i <= max) ) { 
if (islower (s[i])){ 

s[i] =toupper (s(i]); 

} 

++i ; 

} 


/* - 

debug_printX print raw data 

-.- */ 

debug_printX (unsigned char *s,int len) 

{ 

inti; 

for (i-0;i<1en;i++) { 

cprintf ("%c",s[i]); 

} 

cprintf ("/"); 

for ( i--0 ; i < 1 en ; i++) { 

cprintf ( M %X ”,s[1]); 

} 

} 


/X - 

Xcmp : byte compare, compares two objects 

_ * / 

int Xcmp (char *s,char *s1,int len) 

{ 

int i,j; 

i = 0; 

for (j = 0;j<len;j++) { 

if (s [ j] < si [J]) /* less than */ 

return -1; 
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if (s[j] > s1[j]) /* greater than *•/ 

return 1; 

} 

return 0; /* equal */ 


/*- 

remove_char (char int index) 

Ml ■ *** MM * MM M M MM •#** *M* MM W» MM MM W# MM W MM MM MMf MM MM MW ph ■ MM *^M Mm <^Mi MM MM M ■» M MM MM M# 

void remove^char (char *s,int index) 

{ 

while (s[index]) { 

s[index] = s [index+1]; 
++index; 

> 

s[index] = ’\0’; 

} 


shorten blanks: Take out any reocurring Blanks 


shorten_blanks (char *s) 

{ 

int i,j; 

i = 0 ; j = 1 ; 
while (s[j] ) { 

if ((s[i) == 1 ’) && (stJl == 1 ’>)•{ 

remove char (s,i); 

} else { 

++J ; 

+ + i ; 

} 

} 

s[++i) = ’\0 ’ ; 

} 

/*- ' - 

centerPrint : 


centerPrint (int l,char s[]) 

{ 

int 1en,i; 

1 en = st r 1 en ( s ) ; 

1en = 1en /2; 

1 = 1 /2; 
len = 1 - len; 
for (i=M ; i < = len ; i++) 
c p r i n t f ( 11 " ) ; 

cprintf ("%s‘\s); 



*/ 


} 
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do_nothing : 


do_nothing( ) 

{ 

} 


*/ 


/* - 

* 

is_field_empty() : is field empty or does it have input 

---* y 

is_field_empty(char s[] ) 

{ 

if ( (s[0] « 1 \0 1 ) || (s[0J «•’)){ 

return TRUE; /* since all fields are left justified */ 

} else return FALSE; 

} 


/* - 

is_extended_key : is key pressed a extened key,if so store key in key 


/ 

int is_extended key (char c.char *key) 

{ 

char ch; 

if (c == 0){ 

ch = getch(); 

*key = ch; 
return TRUE; 

} 

return FALSE; 


getchb() : getch with bios. Not on int 21 line DONT* GET DOS REENTRY 

^ *** * ^ ^ ** “ ^ ^ * —' — « ™ ^ ^ W ‘•"W W ™ — «■ ™ ™ ** ** ™ ™ ^ ^ ™ ^ ™ •** •** W » ^ ^ 

int getchb () 

{ 

return getch (); /* TEMP */ 

} 


/*_•_ 

is_nul1_ended; is field null ended 

_* / 

int is_nu11_ended (char *s,int max) 

{ 

int i,null_ended; 

null_ended = FALSE; 

for (i=0;i<max;i++) 
if (s[i] == ’ \0 ’ ) 

nulTrended = TRUE; 
return (null ended); 


} 













Page 4 


3Q1 



GETLINE-.C 


/* - 

9 

yes no : true if yes false if no on yes/no question 


int yes_no (char *s,int d) 

{ 


char ch; 
int key; 

cprintf ( " %s",s) ; 
i f ( d ) { 

cprintf (" [Y]“); 

key = TRUE; 

} else { 

cprintf (" [N]“) ; 

key = FALSE; 

} 

do { 

ch = getch(); 

} while ( (ch != 'Y') && (ch != ’y’) && (ch 

N ’ ) 


&& (ch != K_RETURN) ); 

if ( (ch == ’ y*) II (ch == ’Y‘) ) 
key = TRUE; 

if ( (ch »= ’n') || (ch == ’N' ) ) 

key = FALSE; 

if ( ch KRETURN) key = d; 

return key; 



*/ 


= ’n’) && (ch != 


I 


* 


f 



cprintfN (char s[],int n) 

{ 

int i; 

i = 0; 

while ( (i<n) && (s[i]> ){ 

cprintf ("%c",s[i]) ; 
+ + i ; 

} 


/*- 

print mask; 


print_mask (char s[],char mask[],int len) 

{ 

int i; 

i = 0; 

while (i <= len){ 

if (mask[i] == ' ’) { 

cprintf ("%c",s[i]) ; 
i ++ ; 

} else { 

cprintf ("%c",mask[i]); 
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/* - 

move mask 


movemask (char *s,char *mask,int max) { 
int 1 = 0; 

for ( i = 0 ; 1 <ma>c; i++) 

if (mask[i] != 1 ') s[i] 

} 


= mask[i]; 


/*__ 

is char in mask 


int is_char_in_mask (char ch,char *mask) { 
char *item; 

item = mask; 
while (*item) { 

if ( (ch == *item) && (ch != 

return ( TRUE ); 

++itern; 

} 

return ( FALSE ); 

} 


' ') ) 


/X - 

find _pos 1 tion_after_mask 


int find_position_after_mask (int pos^char *mask) 
char *item; 
int i,save; 

item ™ mask; 
save - pos; 

for (i = 0;i<pos;i++) /* move to pos */ 

-M*item; 

while (*i tern == 1 1 ) { 


while (*i tern == 1 1 ) { 

+ + item; 

++pos; 

} 

if (!is_char_in_mask (*item,mask)) return 
++pos; /* move past mask char */ 

return pos; 


save 


/ ^ 

/ 'T* W W# W WH> tM W tM W w# W w «« w* ta* «•* W Mt H* W W MV 

get_1ine_mask: get a string from console, allow for time slicing 

NOTE! : First and Last CHAR cannot be masked 
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/ 

i nt get _/l 1 ne mask (s ( x, y, max, win , prompt , mask) 

char *s; 

int x,y,max; 

wintype win; 

char prompt [] ; 

char mask []; 

{ 

int i ,pos,done = FALSE; 
int s_pos; 
char c,key; 
time_t tt,start,now; 
int kick out; 


_setcursortype („NORMALCURSOR); 
s_pos =0; 
pos = 0 ; 

_ _ t r 

c - 

if (PRINTED_CONTRACT ) { 

kick_out = 30 * CLK_TCK; 

} else kick_ out = 900 * CLK_TCK; 

/* cursoron (); */ 

UP_FIELD = FALSE; 

D0WN_FI ELD = FALSE; 

if (s[0] == '\0') { /* Blank field if necessary */ 

for (i=0;i<max;i++) 

s[i] = ' 1 ; 

s[i]=’\0 , ; 

} 

gotoxy (strlen(prompt)+x,y); 
textbackground (Blue); 
move mask (s,mask,max); 
if ( ! is_nu11_ended (s,max)) { 
cprintfN (s,max); 

} else cprintf ("%s",s); 


if (strlen (s) < max) 

for (i=1;i<= (max - str1en(s));i++) 

cprintf (" "); 

gotoxy (x,y); 

textbackground (Black); 

cprintf ("%s" ,prompt); 

textbackground (Blue); 

while (!done) { /* return key */ 

start = clock (); 
if (pos > max) { 


spos = pos = 0; 

gotoxy (x+strlen (prompt)^ y); 

} 

whi1e (!kbhit() ) { 

now = clock () ; 

if ( (now - start) > kick out) { 
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agreemnt and exit */ 


here start over*,/ 


if (kick_out =- 30*CLK_TCK) { 

if (forced_exit ()) 

return K_F6; /* save 

} else 

if (forced_exit ()) 

return FORCED_EXIT; 

start = clock (); /* makes it to 


} 

} 

c = getch(); 

if (!is_extended_key (c,&key)) { 

if ((pos >= max) && (c != BACKSPACE) 

&& (c != ENTER)) { /* too many chars */ 
do_not hing(); 

} else { 

if (c == BACKSPACE) { 

if (pos >= 1) { 


— pos ; 


s_pos = pos; 

while (mask[pos] != ' ') 

— pos; 

s[pos] = ’ ' ; 

gotoxy (wherex() -(s pos - 

pos),wherey() ) ; 


cprintf (" %c ", BACKSPACE ) ; 
cprintf (" " ) ; 

cprintf ("%c",BACKSPACE); 
} else { 


( x+max+str1en(prompt),y); 


pos = max; 
gotoxy 


) 

} else { 

if (c == K_ESC) { 

done = TRUE; 
key = K ESC; 

} else 

if (c == KTAB) { 

DOWN_FI EL D = FALSE; 

U P_FI EL D = TRUE; 
done = TRUE; 

} else 

if (c -•= ENTER) { 

DOWN_FIELD = TRUE; 

U P _ FIE L D = FALSE; 
dttne = TRUE; 

} else { /* 


/* if they press a 


regular char */ 

mask char, jump past next */ 


/* mask */ 
if (is char in mask 



< . 
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(c.mask) ) { 


find_position_after_mask (pos.mask); 
+ (pos - s_pos), wherey()); 


(V,C); 


(mask[pos] != ' 1 ) && (pos <= max) ) 


(wherex() + (pos - s_pos),wherey()); 


s_pos = pos; 
pos = 

gotoxy (wherex () 


} else { 


S [ POS ] = C ; 

++POS; 

cprintf 

spos = pos; 
while ( 

++ pos; 
gotoxy 


} else { 

if (key == LEFT) { 
if (pos > = 1 ) { 

— pos ; 

s_pcs = pos; 

while (mask[pos] != * *) 

— POS ; 

gotoxy (wherex() - ((s_pos - pos) + 1),wherey()); 

} else { 

pos = max; 

gotoxy (x+max+strlen(prompt),y); 

} 

} else 

if (key == RIGHT) { 
if (pos < max) { 

++pos; 

s pos = pos; 

4 

while (mask[pos] != ' ') 

++pos; 

gotoxy (wherex() + ((pos - spos) +1),wherey()); 

} else { 

pos = 0; 

gotoxy (x+strlen(prompt),y); 

} 

} else 

if (key == UP ) { 

UP_FI ELD = TRUE; 

OOWN FI EL D = FALSE; 
done = TRUE; 

} else 

if (key == DOWN) { 

DOWN_FI ELD = TRUE; 

UP FIELD = FALSE; 
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} 


done = TRUE; 

} else { 


done = TRUE; 
textcolor (White); 
textbackground (Black); 
'gotoxy (x+str1en(prompt),y); 
for (i=1;i<=max;i++) 
cprintf ( " “ ); 

gotoxy (x+strlen(prompt),y); 
capAdjustNoleft (s,max); 
s[max] = '\0'; 
cprintf ("%s“,s); 
return (key); 

} 

} 


} 

textcolor (White); 
textbackground (Black); 
gotoxy (x+str1en(prompt),y); 
for (i=1;i<~max;i++) 


cprintf (" "); 

gotoxy (x+str1en(prompt),y); 
capAdjustNoleft (s,max); 
s[max] = '\0'; 
cprintf ( " %s",s) ; 
return (key); 


- 

format_string 

- */ 

format_string (char *s,char *f) 

{ 

i n t i , j,1en ; 


/* - 

get_line: get a string from console, allow for time slicing 
-* 

/ 

int get_line (char *s,int x,int y,int max, wintype win,char prompt[]) 

{ 

int i,pos,done = FALSE; 
char c,key; 
time_t start,now; 
int kick_out; 

setcursortype (NORMAI.CURSOR ) ; 
pos = 0 ; 

c = ' ' ; 

UP FIELD = FALSE; 
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i 

t 


DOWN_FI ELD = FALSE; 

if (s[0] == '\0') { /* Blank field if necessary */ 

for ( i ~0 ; i <max ; i +- + ) 

s[i] = ' ’ j 

stiJ^’XO'; 

} : 

f 

gotoxy (strlen(prompt)+x,y); ; 

textbackground (Blue); 

if ( ! isjiu 11 _ended (s,max)) { 

cprintfN (s,max); j 

} else cprintf ("%s",s); 1 

! 

if (strlen (s) < max) 

for (i=1;i<= (max - str len(s));i++) 

cprintf j 

gotoxy (x,y); 
textbackground (Black); 

cprintf ( “%s 11 , prompt ) ; 1 

textbackground (Blue); 

if (PRINT EDCONT RACT) { j 

kick_out = 30 * CLK_TCK; f, 

} else kick out = 900 *CLK TCK; ^ 


will change*/ 


while (Idone) { /* return key */ 

start = clock (); 
if (pos > max) { 

pos = 0; 

gotoxy (x+strlen (prompt),y); 

} 

while (!kbhit() ) { /* poke at clock, hope date 


here over midnight */ 


K_F6; /* save agreemnt and exit */ 


F0RCED_EXIT; 

makes it to here start over*/ 


/* if left 

now = clock (); 

if ( (now - start) > kick_out) { 

if (kick_out == 30*CL KTCK){ 

if (forced_exit ()) 

return 


} else 


if (forced_exit ()) 

return 


start = clock (); /* 


c = getch(); 
if (c == ’%’)■{ 


do card._reader (); 

(IP FIELD = FALSE; 
DOWN_FIELD = FALSE; 
return K_CARD_REAOER; 


GETLINE.C 


*/ 

* 


if ( ! is_extended_key (c,&key)) { 
if ((pos >= max) kf* (c != BACKSPACE) 

&& (c != ENTER)) { /* too many chans 


do_not hing( ) ; 

} else { 

if (c == BACKSPACE) { 
if (pos > = 1 ) { 

POS = POS -1 ; 

S[pos] = ’ ’7 


( "%c" , BACKSPACE); 


("%c",BACKSPACE) ; 


} else { 


cprintf 

cprintf (“ " ) ; 

cprintf 


/* regular 


+ 1 ; 


("%c 



> 


pos = max; 

gotoxy (x+max+str1en(prompt),y); 

} 

} else { 

if (c == K_ESC) { 

done = TRUE; 
key = K_ESC; 

) else 

if (c == K_TAB) { 

DOWN_FI EL D = FALSE; 
UP_FIELD » TRUE; 
key = K_T AB; 
done = TRL) E; 


char */ 


} else 

if (c == ENTER) { 

key = KRETURN; 

DOWN _FI ELD = TRUE; 

UP. FIELD = FALSE; 
done = TRUE; 

} else { 


s[pos] = c 
pos = pos 

cprintf 



} else { 

if (key == LEFT) { 
if (pos > = 1 ) { 

pos = pos - 1; 

gotoxy (wherex()-1,wherey()); 
} else { 


pos = max; 

gotoxy (x+max+str'len( prompt ) , y ) ; 


i 

1 
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} 


} else 

If (key == RIGHT) { 
if (pos < max) { 


por> = pos + 1 ; 

gotoxy (wherex()+1,wherey()); 
} else { 


pos = 0; 

gotoxy (x+strTen(prompt),y); 

} 

} else 

if (key -= UP ) { 

UP FIELD = TRUE; 


DOWNFI ELD = FALSE; 

done = TRUE; 

} else 

if (key == DOWN) { . ' 

DOWN_FI ELD = TRUE; 

UP_FI ELD = FALSE; 
done = TRUE; 

} else { 

done = TRUE; 

textcolor (White); 
text background (Black); 

gotoxy (x+str1en(prompt),y); 
for (i = 1 ; i<~max;i++) 

cprintf (" "); 

gotoxy (x+str1en(prompt),y); 
capAdJust (s,max); 
s(max] = '\0 ' ; 
cprintf ("%s",s ) ; 
return (key); 


} 

> 

} 

textcolor (White); 
textbackground (Black); 

gotoxy (x+strlen(prompt),y); 
for (i=1;i<=max;i++) 
cprintf (“ "); 

gotoxy (x+strlen(prompt),y); 
capAdjust (s,max); 
s[max] = 1 \0'; 
cprintf ("%s",s) ; 
return (key); 


- 

do card reader : make a call to card reader module 

--- */ 

do_card_reader () { 

int stat ; 

ungetch ('%'); /* put back the % , card_reader mod needs */ 

stat = read in card (agreemntrec.creditno, 
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ir 


> 


if 


} 


(!stat) { 

errrtn 


agreemnt nee ,'custname, 
agreemntrec.expiredate, 
agreemnt rec.credittype); 


("Card Reading Interrupted By USER!"); 


* 



forced exit 


exit and save contract 


int forced_exit () 

{ 

int i; 
int stop; 
wintype note_wt; 
windef error win 



{10,10,70, 15,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,Red}; 

stop = FALSE; 

notewt = windowopen (&errorwin); 

, settitie (note_wt,“* Returning To Main Menu *“,CenterUpperTitle 

gotoxy (1,3); 

centerPrint (60,“Press <SPACE 8AR> to Stop!"); 
i = 30; 

while ( (i >= 0) && (!stop) ) { 

sound (1000); 
delay (20); 
nosound (); 
delay (1000); 
if (kbhit ()){ 

getch (); 
stop = TRUE; 

} 

-i ; 

} 

windowclose (note wt); 
if ( ! stop) { 

return TRUE; 

} else return FALSE; 

} 


i 

(■ 

* 

t 

f k 


* 


l . 
u 


> 
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1 ^ ^ ^ ^ ^ ^ ^ ^ «Xr - j_- -■ ^-- *.^-» -■ |^- -1 -» a> ^ 

/ ^ ^ ^ ^r* ^ *T* ^ -T* ^ ^ ^ ^ ^ ^ ^ ^ ^ /p ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

7/21/89 Greg McGregor 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 

*\)_— ^ -^-* -j_- * *-^_-* - j_- ^ -■ ^ j ^ i^ -1-> ^ ^ «.|- > * - § 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ / 

#inc1ude <a 11 oc . h> 

/*- 

strsize : size a string 

*« ** V** **"* M" ****' W »• ’— — W W WW W Hf »•'«-* WW W W M* «M MW 4^ —* ^ V MM W MW W* MM M ^ MM W WM ^ MV V W MW W W VMM W W V M* V -~l — *4^ ^ 

char *strsize (int x) 

{ 

char *p; 

p = (char *)malloc (x + 1); 
return p; 

> 

■■ •' “ '■ MM* MW Vi M W MU Mr# W-f W* V «*■• ■■ ■ ■ ^ V MM MW* W— M ■ M»f *W VT MM* 11 1 MM MW tMI M il Mm H» ■ h* Mm - T— Mr W» ■ | _1~ _ W. ^ ^_yk - n mV W V WW ULM MM M tai - n 

str_image : malloc room for a string 

-*/ 

char *str image (char *s) 

{ 

c ha r * p ; 

p = (char *) malloc (strlen (s) + 1); 
if (p != NULL) 

st rcpy (p, s); 
return p; 

} 

/*- 

strmid : proc link - version 1 to version 2.0 compatiable link 
-*/ 

char *strmid (char *dest,char ^source,int start.int Ten) 

{ 

int i ; 

for (i=0;i<1en;i++) { 

dest[i] = source[start+i]; 

} 

dest[i] = ’\0 1 ; 

> 

/* - 

null : null out a string 

_ */ 

null (char *s) 

{ 

s[0] = *\0 1 ; 

> 

/*- 

nLill_field 

-*/ 
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null_field (char *s,int 1) 

( 


i nt 


} 


for (i=0;i<l;i++) 

s[i] = *\0’ 


/ >!< -J■» 

* moveX (x,y,X) 

* copy y to x only X char’s and add NO NULL 

»!« M 

'•'T^ / * 


int moveX (x,y,n) 
char *x,*y; 
int n ; 

{ 

int i ; 

for (1=0;i<n ; i++) 


} 


x[1] = y [i ] ; 


mjL, 

/^W ^X' 

* strcpyX (x,y,x) 

* params : two pointers char * or char[J but must be same 

* returns : none 

* copyies X number of char's from y to x 

fci* ^1* »>j ■- -.t^ t 

f 

strcpyX (to,from,X) 
char *from,*to; 
int X; 

{ 

int add .= 0; 
int a d d1 = 0 ; 

while ((to[add] = from [add 1'J ) && (addl != X-1)) { 

++add; 

++add1; 

} 

to[++add] = '\0’; 

} 


^J,, +A + sA* 

-T* ^p ^T' 

* strNUMcat 

* params : char s[], and int t 

* returns : none 


* function: concatenates t 

4 ^ M 

4^4 f 


to s 


L 
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strNUMcat (s,t) 
char s [] ; 
int t; 

{ 

int i ; 

i = 0; 

while (s[i] ! = ’\0’) ++i; /* find end of string */ 

s [ i ] = t; 

s[i+1] = '\0'; /* have to add null to end because t has no 

11 */ 

} 


/* cats a char to end of string */ 

strCHcat (s,t) 
char *s; 
char t; 

{ 

int i ; 

i = 0; 

while (s[i] != ’\0') ++i; 

s[i] = t ; 
s[i+1] = '\0'; 


I 
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/* - 

MODULE: lost dam.c VI.00 

Lost and Damaged phone return process 


CREATED: 

GMM 3-11-1991 


REVISED: 


_*/ 


Hinc1ude 
Hind ude 
Hind ude 
Hind ude 
Hindude 
Hi nd ude 
Hindude 
Hi nd ude 


<stdio.h> 
<ctype.h> 
<bench.h> 
<proc.io> 
<sys\stat.h> 
<windows.h> 
<gkeys.h> 

<misc.h> 


Hinclude 
Hinclude 
Hi nd ude 
Hindude 
Hind ude 
Hinclude 
Hinc1ude 
H i nd ude 
Hindude 
Hindude 
Hindude 


<agreev3.h> /* struct 
<control .h> 

< phone.h> 
craperson.h> 

<ag rio.h> 

<g base.h> 

<time.h> 

<extnvar.h> 
<getline.h> 
ctaustat.h> 
<extscrns.h> 


formats */ 


wincie*f lo*io note win 

= {5,11, 75.20,White,Black, FALSE, FALSE,FALSE,TRUE,SINGLE F RAME, 

White,Black}; 

wintype big_note_wt; 


prompt _for_phone_nurnher _ 

. _ ___ ~t r ^ WP* •• 

prompt_for_phone_number () 

{ 

wintype win; 
char number [20] ; 
int key; 

win = windowopen (&big note win ) ; 

settitle ( W i n< "Retrieving Contract", CenterllpperTi tie); 
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strcpy (number," “ ) ; 

gotoxy (5,3); 

cprintf (“Please enter the phone number of the Cellular Phone 11 
gotoxy (5,4); 

cprintf ("so that the contract may be closed."); 

key = get_l1ne_mask (number,5,6 , 12,win,"Phone Number -> "," 

" )f 

selectinx9 (fd_agreemnt,3); 

moveX (agreemntrec.curphoneno,number,12); 

windowc’lose (win); 

} 

^ ^4^ M ■ W W* r Mm r < !■ W WV VM VVW MV MV 'MV w* MV* tv t i l l MV MV MV MVV w mv mm ~1 - MV M W MV MV tv* l - Mi . VM TUTT MV WV mV Mi W MV M* 

pul 1_phonelist 

int pul 1_phonelist () { 

int iostat; 

struct phone__def temp^phonerec; 


} 


iostat = selectinx9 (fd_phone # 1); 

strncpy (phonerec,curphoneno,agreemntrec.curphoneno,12); 
iostat ” exactkey9 (fd_phone,^phonerec ) ; 
if (iostat < 0) { 

return FALSE; 

} else return TRUE; 


/* - 

pul 1^contract_by_phone 

--- * 

int pul 1_contract_by_phone () { 

int iostat; 

int found = FALSE; 

struct agreemnt_def temp^agreemnt; 
char agreeno_save[20]; 

iostat “ 0 ; 

selectinx9 (fd^agreemnt,3); 

iostat ~ reset_file9 (fd_agreemnt, &temp_agreemnt); 
iostat - exactkey9(fd_agreemnt, ^agreemntrec); 
if (iostat < 0) { 

errrtn ("Can’t Find Agreement!"); 

} else found = TRUE; 
do { 

moveX(agreeno^save,agreemnt rec.ag reeno,12); 
iostat - nextkey9(fd_agreemnt, &agreemntrec); 
if (iostat == 0) 

moveX(agreenosave,agreemntrec.agreeno,12); 

} while (iostat == 0); 

selectinx9(fd_agreemnt, 1); /* read using agreement number 

moveX(agreemntrec.agreeno,agreeno_save,12); 
iostat = exactkey9(fd_agreemnt, fcagreemntrec); 
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/* check status of agreement pending talk with JANE CACIEANO */ 
return found; 


} 


/* - 

1ost_phone_routine 


mark phone as lost 


-* y 

lost_phone_routine () { 

prompt_for_phone_number (); 
if (!pul 1_phone!1st ()) { 

errrtn (“That phone number is not logged in at this site! 
return FALSE; 

} 

if (!pul I_contract_by_phone ()) return FALSE; 
update_tau_status (0,‘2'); 

/* add here collection of money */ 
add_upd_agreemnt (3); /* report as lost */ 

return TRUE; 

/* files get closed on exit out of endagr.c */ 


int 


} 



1 ost_phone_predicate : return TRUE for lost phone 


---- */ 

int 1ost_phone_predicate () { 

char ch,key; 

key = K_F2; 

while (key == K_F2) { 

big_note_wt = windowopen (&big_note_win); 

setti11e"(big_note_wt,"LOST PHONE ?",CenterUpperTi11e); 

ahoh (); 

use (big notewt); 
gotoxy (1,2); 

centerPrint (TO," If the phone is lost, PRESS F2;"); 
gotoxy (1,4); 

centerPrint (70,"If the' phone is in the CTI, PRESS F4"); 
gotoxy (1,6); 

centerPrint (70," Press F6 key to abort!"),- 

c h = getch (); 

windowclose ( big note_wt ) ,- 

if (1s_extended_key (ch,&key)) { 

if (key == K_F2) { 

if (1ost_phone_routine ()) 

return TRUE; 

} 

if (key == K F4) return FALSE; 

} 

} 

if (key == K_E6) return —1; 
return FALSE; 


} 
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/* - 

1ost phone message 


lost_phone_message () { 
char ch, key; 

big_note_wt = windowopen (&bi g not e_win ) ,* 
settitle (big_note_wt, "LOST/DAMAGED PHONE 
MESSAGE" ,CenterUpper T i 11 e ) ; 

use (bignotewt); 
beep (); 
gotoxy (1,2); 

centerPrint (70,"The CTI can't recover the phone data. The "); 
gotoxy (1,3); 

centerPrint (70,“customer's credit card will be billed the "); 
gotoxy (1,4); 

centerPrint (70,"standard amount. Any discrepancies will be"); 
gotoxy (1,5); 

centerPrint (70,“billed at the end of the month. "); 

gotoxy (1,7); 

centerPrint (70,“Press ESC to exit this message."); 
ch = getch (); 
windowclose (big_note_wt); 


/* - 

damaged_phone routine : mark phone as Damaged 


i nt 


damaged_phone_routine () { 

prompt forphonenumber ( ) ; 
if (!pull_phonelist ()) { 

errrtn (“That phone number is not logged in at this 
return FALSE; 

} 

if (!pull_contract_by_phone ()) return FALSE; 
update_tau_status (0,'3'); 

/* add here collection of money */ 
add_upd_agreemnt (4); /* report as damaged */ 

return TRUE; 

/* files get closed on exit out of endagr.c */ 


*/ 

site 


damaged_phone_predicate 


int damaged_phone_predicate () { 

chan ch,key; 

key = K_F4; 

while (key “ K_F4) { 

.bi g_not e_wt = windowopen (&bi g__not e_wi n ) ; 
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n 

O 



settitle ( big_note_wt, " DAMAGED PHONE ?", Center-Upper Ti 11 e) ,- 
ahoh (); 

use (big_note_wt); 
gotoxy ( 1 ,2 ) ; 

centerPrint (70,“Please take the phone out of the CTI and 

turn it on. "); 

gotoxy (1,3); 

centerPrint (70," If the phone does NOT turn, replace the 

battery with "); 

gotoxy (1,4); 

centerPrint (70,"a charged one. Once the phone is turned 

on, pi ace it"); 


abort"); 


} 


gotoxy (1,5); 

centerPrint (70,“back in the CT I and press F2 to continue, 
gotoxy (1,7); 

centerPrint (70,"Press F2 to continue' - Press F6 to 


gotoxy (1,8); 


centerPrint (70,"Press F4 if phone will not work"); 
ch = getch ( ) ; 
windowclose (big_note_wt); 
if (is extended key (ch,&key)) { 

if (key == K_F4) { 

if (damaged_phone_routine ()) 

return TRUE; 



} 



if (key == K_F2) return FALSE; 
if (key == K_F6) return -1; 
return -1; 


/* - 

damaged_phone_predicate2 


int damaged_phone_pred i c,ate2 () { 
char ch,key; 

big_note_wt = windowopen (&big__note_wi n ) ; 

settitle (big_note_wt," DAMAGED PHONE ?" , CenterUpperTi.tle) ; 

ahoh () ; 

use (big_note_wt); 

gotoxy (1,2); 

centerPrint (70,"This phone appears to be damaged. Please retry 
the "); 

gotoxy (1,3) ; 

centerPrint (70, "process again from the start by pressing F2 . If 
this "); 

gotoxy (1,4); 

centerPrint (70, "is the second time you have seen this message, 
press F4" ) ; 
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gotoxy (1,6), F6 to abort''); 

centerPnnt (7U, 
ch * getch (); 

windowc'lose (big note.wt); 

if ( iextended_key (ch,&ky;) i 
''"if (key == K_F4) { 

if (damaged_phone_routme 

return TRUE; 


()) 


if (key K_F6) return -1; 

if (key == K_F4) return TRUE; 

return FALSeT /* F2 true * keeP try-ing 


*/ 


I * 


MAINMENU.C 


/* - 

MODULE Name; MAINMENU 


Version 2.44R (RIB Version) 


Purpose: 


This is the main menu program for the agency computer 
system. 


I nput; 


mainmenu.hip 
updates 


NOTES: 


DILL -> This is the worst 

back in 1988 ? or 


wri11en of a.li . 
so . 


It was written 


REVISED; What was revised? 

GMM 7-30-1991 Nothing 

-* y 


/* 

extern unsigned _ovrbuffer = 0x2000; /* set to 128K the MM swapping */ 

*/ 

t 


extern unsigned _stklen - 57244U; /* 56k stack */ 


Hinc1ude 
Hinciude 
Hi nclude 
Hinciude 
Hindude 
Hinc1ude 
Hinclude 
If i nc 1 ude 
# include 
#inc1ude 
Hinc1ude 
Hi nclude 
H i n c i u d e 
If i nc 1 ude 
Hindude 
Hi ncl ude 


<stdio.h> 

<st ring.h> 

< i o . h > 

<sys\types.h> 
<tIme.h> 

<dos.h> 

<conio.h> 

<celwin.h> 

< d i r . h > 

<bios.h> 

<a11oc.h> 

< process.h> 
<bench.h> 
<proc.io> 

<signa1.h> 

<trap.h> 


H 1 n c 1 u d e 
Hind ude 
Hinclude 
Hinc1ude 
Hind ude 
Hinclude 
Hinclude 
Hinc1ude 
Hinclude 
Hinclude 
Hinclude 
Hinclude 


<windows.h> 

<server.h> 

<gbase.h> 

<variable.h> /* variables */ 
<screens.h> /* window definitions */ 
<endagr.h> 

<openagr.h> 

<updagr.h> 

<gstring.h> 

<misc.h> 

<realtime.h> 

<\h2\ma11oc\ga11oc.h> 
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, u * mil -int- n int Bl ANK COLOR, int BACK_COl.OR,i 
int do.menu.options (char *s[10j,int n.int slm.n _ 

nt 

text_c) ; 


itdefine ESC 27 
8de.fine TRUE 1 
tfdefine FALSE 0 

itdef ine CLUSTERS_TELEMAC 


DISK 15658 


/* program will only run on this 
size of hard disk, TELEMAC size 


SAMSUNG */ 


CLUSTE RS_TFLPMAC_D1 SK2 16333 /* P-otfr.. -HI only non on thl. 

/ /* DATA 


GENERAL */ ^ onKft7 

#define Cl.USTERS_.TELEMAC_DISK3 20687 


/* Richard ogden systems */ 


char far system_hame [30]; 

int far NO_FILE — FALSE; 

int far NQJ3YSTEM = FALSE; . 

int far NO_LIFE = FALSE; 

int far extended.memory - FALSE; 


struct date far today; 
char far tmp[80]; 


display_error (mess) 
char *mess; 

{ 

char s; 

b 06 O ()r 

statusLine (MAGENTA,WHITE ,mess); 

s = getch (); 

} 


do_menu () 

char *menu[10]; 

int number_of_selections; 

int selection,stat; 

char mess[80] = "FI - Help 
Screen Saver"; 
char tit1e[80]; 

FILE *f; 

char screen 1[25*80*2] ; 
char s[80]; 


??. - Update: 


p3 - Managers Report F4 


start ; 


menu [ 1] 
menu[3] 
menu[2] 


"Rent a Phone 
"Return a Phone 
"Update Agreement" 
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/* 


*/ 

9 


number_of_selections = 3; 
window (1,1,80,25); 
textcolor (White); 
text background (Black); 
c1rscr ( ) ; 

f 1 at_window_1 ( 1,2,80,24,Blue,White); 

gotoxy (60,19); 

textcolor (White) ,- 

cprintf ("Version 2.44R"); 

gotoxy (60,20); 

cprintf ("Copyright 1991"); 

gotoxy (60,21); 

cprintf ("-* %s",system_name); 

gotoxy (33,20); 

open_fi1es (); 

null field (s,80); 

moveX (s,controlrec.tau id,4); 

cprintf ("TAU id; %s" ,s); 

gotoxy (24,21); 

moveX (s,cont rolrec.1ocation name,30); 

centerPrint (30,s); 

close_fi1es (); 

gotoxy (24,21); 

if (extended_memory) { 

cprintf ("-* Extended Memory Swapping *-"); 

} else 

cprintf ("-* Disk Swapping *-"); 

window (1,2,80,24); 


o r a t 
sel ; 


menu_tit1e_wt = windowopen (&menu_title_win); 
clrscr ();. 

center Print (40,"M A I N M E N U"); 
telemac_wt = windowopen (&telemac_win); 
centerPrint (65,"T e 1 e m a c C e 1 1 u 1 a 

ion); 

menu wt = windowopen (&menu win); 


textcolor (White); 
textbackground (Blue); 
window ( 1,1,80,25-); 
gotoxy (5,23); 

cprintf ("%1uK Free coreleft O/1000); 
status!., ine ( BLACK , WH HE , mess ) ; 
window (27,12,52,19); 
textcolor (White); 
textbackground (RED); 

_setcursortype (_N0CURS0R); 

selection = do_menu_options 
(menu,number _of_selections,Red,BLACK.WHITE); 

switch (selection ){ 


case 1 


C o r p 


get t ext 
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(1,1,80,25,screen 1) ; 
( 1,1,80,25,screen 1); 

( 1,1,80,25,screen 1); 
( 1,1,80,25,screen 1); 

( 1,1,80,25,screen 1 ) ; 
( 1,1,80,25,screen 1 ) ; 


(WHITE,BLACK,mess) 


screen saver */ 


} 


} 

if ((selection != 

(selection 


case 3 


openagr ( ) ; 
puttext 

goto sel; 

gettext 

endagr (),* 
puttext 


case 2 


case -20 


case -1 


goto sel; 

gettext 

updagr ( ) ; 
puttext 

goto sel; 

quit (); 
break; 

help (); /* FI */ 

statusl. i ne 


goto sel; 

case -2 ? browse_updates (); 

goto sel; 

case -3 : print_manager (); 

goto sel; 

case -4 : check_time (TRUE); /* F4 jump to 

goto sel; 


1 ) && (selection !=. 2) && (selection != -20) && 
•~ -1)) goto sel; 


quit () 

{ 

int shut 


down 


= TRUE; 

close_al1 windows (); 

unpopa11(); 

if (!g_pointers ()) { 

printf (“\rt\n Garbage Collector Failure! 
shut down = FALSE; 

} else c1rscr ( ) ; 
if (heapcheck < 0) { 

printf ("\n\n HEAP ERROR!"); 
shut_down = FALSE; 

} else printf (“OK!"); 


t 
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P o r a t i o 


Tel ernac Know! 

> 


if (shut_down) { 

printf ("\nT A U pc SHUT DOWN OK!"); 
printf (“\n\nHave A Good Day!"); 
printf ("\n"); 

printf ("\nT e I e m a c Cellular Cor 

n ! " ) ; 

exit (0); 

} e 1 s e { 

printf (" \n\n TAUpc Shut Down ABNORMAL.-ERROR!") 

printf ("\n\n Please Call (800) 235-2356 and let 

) ; 

printf (“\n\n Telemac Cellular Corporation!"); 
exit (0); 

} 


help () 

{ 

FILE *f ; 


int i.stat; . 
char t [80] ; 

char screenl[25*80*2] ; 
char 1[101][80]; 

windef he'lp_win = { 2,3,7 8,1 6 , Whi t e, B'l ue, FALSE , FALSE , FALSE , TRUE , SI NGL EF 
RAME, 


wintype 
for 

* 

T = 


hel p 


he!p_wt; 

(i~0;i<100;++i){ 

l[i][0] = 
l[i][1] = 

} 


White,Blue} ; 


(char)1; 
'\ 0 ' ; 


0 ; 

if ((f = fopen (“mainmenu.hip","r")) == NULL){ 

errrtn (“Help Message Not Found!"); 
return'; 

} 

statusLine (WH1TE,BLUE,“<Arrows> <PgUp> <PgDn> - To Scroll 
ESC - To quit"); 


gettext ( 1,1,80,25,screen 1); 
help_wt = windowopen (Sthel p_win) ; 
settitle (help_wt," HELP",CenterUpperTit1e); 
while ((fgets(&t,80,f)) != NULL){ 

strcpy ( 1 [i] , t ) ; 

+ + i ; 

> 

fclose (f ) ; 
d i spl ay._text (1,8); 
use ( hel p_.wt ) ; 
windowclose (help wt); 
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puttext ( 1 ,1,00,25,screen 1); 

} 


displaysection (s,line,to) 
char s[101J[80j; 
int line,to; 

{ 

i n t i ; 

clrscr( ) ; 

for (i=line;i<=to;++i){ 

gotoxy ( 1 , ( i-1 ine) + 1 ) ,- 
cprintf ("%s“,s[i] ); 

} 

} 


int end_of_text (s) 
char s[101][80]; 

{ 

int i; 

for (i=0;i<100;++i) 

if (s[i][0] == (char)1) return ( i ); 
return i; 

} 


displaytext (s,1ines_per_page) 
char s [ 101][80]; 
int 1ines_per_page; 

{ 

int 1ine,to,selection,1p; 
time_t start,finish; 
struct tm st; 
struct tm fn; 

lp = 1ines_per_page; 

1 i n e = 0 ; 

to = 1p; 
selection =0; 

if (end_of_text (s) < lp) to = end_of_text (s) - 1; 

display_section (s,0,to); 
start = time (NULL); 
st = *'localtime (&start); 
while (selection != ESC) { 

while (!kbhit ()) { 

finish = time (NIJLL); 

fn = *localtime (Stfinish); 

if (fn.tm_min >= (st.tm_min + ?)) 
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return; 

} 

start = time (NULL); 
st = *'l oca'1 time (&start); 
selection - getch (); 
switch (selection ){ 
case ' H': /* up arrow */ 


>~ 1 ) { 

—to; 

— 1 ine; 

to = Ip; 
line ™ 0; 

display section (s,line,to); 


if (line 


} else { 


) 

break; 


end_of_text(s) -1; 
line = 0; 


case 1 I': /* PgUp arrow */ 

if (line > Ip) { 
to = 1ine; 
line - line - Ip; 

} else { 

to = Ip; 

if (end_of_text (s) < Ip) to = 


} 


display section (s,1ine ; to); 


brea k; 


case ' P f : /* down arrow */ 

if (to + 1 < end_of_text(s)){ 
+"+-1 i ne ; 

++tO; 

} else { 

line = line; 
to = to; 

} 

display_section (s,line,to); 
break; 

case 'Q 1 : /* PgDn arrow */ 

if (to + Ip < end_of_text(s)){ 
line = to; 
to « to + lp; 

} else { 


1 'i>^i■ 




V 1 ^' - i|P, p 


£ 


* * 




i 


f 



s~.. 









323 ! 

i 

4 

i 
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to — end_of_text (s) 1 ; 

line = to - Ip + 1; 

display_section (s,line,to); 
break; 


} 


} 


} 


1oad__updates (Tine) 
char line[101][80]; 

{ 

FILE *f; 
char ch,s [ 80 ]; 
int i ; 


if Iff = fopen (“updates', V)) NULL) { 

P errrtn ("No Current Updates. . . ). 

return FALSE; 

> jX 

for (i= 0 ;i< 100 ;++i) 

Vine[i] [0] ' = (char)1; 

line[1][1]~'\0; 

while'((fgets (&s, 80 ,f)> [= NULLM 

strcpy ( 1 ine[iJ»s). 

++i ; 


} 


fclose 

(f ); 

return 

TRUE; 

> 


browse_updates 

() 


int error,loaded; 
char tit1e[80]; 
char screenl[25*80*2]; 
char 1[101][80]; 
windef update_win - 


r-A .1 c? C Y 12> l I T M fn I F* FRAME i 
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use (update_wt) ; 

windowclose (update_wt); 

error = puttext (1 # 1,80,25,screen 1); 


1oad_satel1ite () 

{ 

int x,y # xl,yl,i,J; 

/* 

* 

unpopa11 () ; 

headline (BLACK,WHI TE , " . T E L E M A C CEL L U L A R 
CORPORATION”); 

x = 35; 
y = 3 ; 
x 1 = 4 5 ; 

V1 - 7; 

for (i-1;i<=10;++i ) { 

flat_window_1 (x,y,xl,y1,BLUE,WHITE) ; 

X = X - 2 ; 

++y; 

XI = X1 + 2 ; 

++y 1 ; 

} 

textcolor (YELLOW); 
gotoxy (1,1); 

windowCenterPrintf (47,"Welcome to the TeleMac System"); 

gotoxy (1,2); 

textcolor (WHITE+BLJNK); 

windowCenterPrintf (47,"— Loading —"); 


*/ 

/* 

} 


textbackground (BLACK); 
window (1,1,80,24); 
gotoxy (1,24); 
textcolor (WHITE); 

window (1,20,2,20); 

note_wt = note ("Loading..."); 
system (“\\blast\\satel1it"); */ 

windowclose (note wt ) ,- 


check_disk() 

{ 

intfd; 
char s[801; 

S [ 0 ] = ' 0 ' ; 

fd = open ("c:\\~W" , 0_RD0NL Y | 0_BI NARY , S_ I READ ) ; 
read (fd,s,1); 

if (s[0) == ’O’) NO_F1LE = TRUE; 

/* a 0 means system was locked prior to this boot*/ 
if (fd <= 0) 

NOFILE = TRUE; 

c1ose (fd) ; 
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check system () 

{ 

struct fatinfo dtable; 

set_gvn_port (1); /* com? */ 

set_rtb_port (0); /* coml */ 
strcpy (system name,"TAUpc"); 


check life span () 

{ " 

struct tm *t,*t1; 
time_t tm; 
i nt days,days 1 ; 

t = getlife (); /* in server.c */ 

if (t -= NULL) { 

N0_LIFE = TRUE; 
return; 

> 

tm = time(NULL); 


> 


tl = localtime (&tm); /* current time */ 


daysl = t1->tm_yday; /* from .chip */ 
days = t->tm_yday; /* from disk */ 

if (t1->tm_year != t->tm_year) { 

days += 365; 

} 

if (days < daysl) { 

NO_LJFE = TRUE; /* failed test, current > disk */ 

} else { 

NO LIFE = FALSE; /* passed test, disk > current */ 



/* menu-bar Utilities */ 

ttdefine MAX TIME 900 /* set timer for 15 minutes */ 

^include <time,h> 


int menu bar (s,oldPos,newPos,blank_out_color,coIor_of_bar,text_c) 
char *s[10]; 

int newPos,oldPos,colorof bar,blank_out_color,textc; 

{ 

textcol or (WHITE); 
gotoxy (5,2*oldPos); 
text background (blank out col or); 
cprintf (" %s",s[o1dPos]); 
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textcolor (WHITE); 

gotoxy (5,2*newPos); 

textbackground (color_of_bar); 

textcolor (YELLOW); 

cprintf ( " %c " , 1 6 ) ; 

textcolor (text_c); 

cprintf (“%s",s[newPos]); 

textcolor (WHITE); 

gotoxy (5,2*newPos); 


int display_menu (s,n) 
i n t n ; 

char *s[10] ; 

{ 

Int i ; 

for (i~1;i <=n;++i){ 

gotoxy(5,2*i); 
cprintf (" %s" 

} 

> 


,s[i]); 


int do_menu_options (s , n , 8LANK_C0L0R, 8ACK_C0L.0R, text_c) 
char *s[10) ; 
i nt n ; 

int BLANK COLOR; 
int BACK_COL.OR; 
int text_c; 

{ 

int selection; 
int o'l dPos , newPos ; 

display menu (s,n); 
oldPos = newPos = 1; 

menu_bar (s , ol dPos , newPos , 81.ANK COLOR, 8ACK_C0L0R , t ext_c ) ; 
while (1) { 


if (SkbhitO) { 

check_time (FALSE); 

} 

if (kbhit () ) 

selection = getch (); 
switch (selection){ 

/* up arrow */ case * P’ ; oldPos = newPos; 


(newPos n) { newPos =1;} 


i f 


else newPos 


newPos +1; 


j 


1 ***** * * IV** *** If flfr ^|tf ;f> 
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menu_bar (s , o'l dPos , newPos , 8L AN K_ CO LOR , BACK COLOR, text_c ) ; 


/* down arrow */ case 'H' : oldPos = newPos; 

if (newPos == 1) { newPos = n;> 
else newPos = newPos - 1; 


break; 


menu_bar (s , o1dPos, newPos , 8L ANK_COLOR, 8ACK_C0L.0R , text _c ) ; 

break; 


case 

t t 

• 

* 

: return 

(-1 ) ; 

/* 

FI for help 

*/ 

case 

1 < ' 

; return 

(-2) ; 

/*' 

F2 key */ 


case 

» — * 

: return 

(-3) ; 

/* 

F3 key*/ 


case 

1 > * 

: return 

(-4).; 

/* 

F4 key */ 


case 

i ~ r 

:return ( 

-20) ; 

/* 

special key 

*/ 

case 

1 3 

: return(newPo 

s ) ; 




long count; 

checktime (int auto_on) 

{ 

int i = 12; 
int x,y; 
char c ; 

char screen 1[25*80*2] ; 
int OK = TRUE; 
clock_t start,current; 

start = clock (); 
x = 1 ; y = 1 ; 
while (!kbhit()) { 

current = clock (); 

if ( (auto_ on) || ( (current - start )/CL.K_TCK > 60) ){ 

tb (BLACK); 

window (1,1,80,25); 

gettext ( 1 , 1 ,80,25,screen 1); 

clrscr (); 

textcolor (WHITE); 

1owvideo(); 

startserver (); /* enact GVN server */ 

window (1,1,80,25); 
whi1e ( OK ) { 

textcolor (WHITE); 
textbackground (BLACK); 
clrscr (); 
gotoxy (x,y); 
cprintf ("Press <SPACE 

8AR> to resume.“); 

x = (rand() % 50) + 1; 
y = (rand() % 23) + 1 ; 
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(WHITE+8LINK) ; 
(80,"CIP is updating 


FALSE; 


} 



} 


if (MEJ.OCK) { 

gotoxy (1,1); 
t extco'l or 


centerPrint 


this TAUpc. Please Wait"); 

} 

delay (750 ) ; 
getdate (&today); 
if (is_ring (>) { 

run_server (); 
endserver (); 
start_server (); 
window (1,1,80,25); 

} 

if (kbhit ( ) ) { 

getch (); 

if (!ME LOCK) OK = 


} 

} 

end_server (); 
normvideo (); 

puttext (1,1,80,25,screen 1); 
tb (WHITE); 

window (27,12,52,18); /* reset menu window */ 
return; 


/*~ 


in it keys? initialize key positions 


i nit_keys() 

{ 


^include 
Sinc1ude 
Itinclude 
fiinclude 
Hinclude 


<agreev3.h2 > 
<control .h2 > 

<phone.h2> 
<raperson.h2> 
<agreenum.h2> 



*/ 


main () 

{ 

i nt i ; 

/* signal (SIGFPE,trap); */ 

i = _OvrInitExt (0L., 0L) ; /*■ try extended memory swapping */ 

if (i == 0) extended memory = TRUE; 
init windows (); 


init_keys (); 
modules */ 

rt init databases (); 



/* init database keys for (open/end)agr 
/* init realtime billing data bases */ 
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/* ruff_area ( 1 , 1,80,25,81 ue , Whi te) ; */ 

window (1,1,80,25); 
textcolor (White); 
textbackground (Blue); 
c1rscr (); 

telemac_wt = windowopen (&te Iemac_win); 

centerPrint (65, "T e 1 e m a c Cellular Corporat 

1 o n" ) ; 

statusLine ( Red , WHI TE , " 1. o a d i n g"); 

copy_protect_wt = windowopen (fvcopy_protect_win) ; 

gotoxy (15,1); 

cprintf (“Loading ->"); 

spin (26,1,5); 

NOFILE = FALSE; 
check_disk ( ) ; 
spin (26,1,5); 

NO_SYSTEM = FALSE; 
check_system() ; 

N0_LIFE = FALSE; 
check!ife_span (); 
spin (26,1,10); 


if ( (NOFILE) || (NO_SYSTEM) || (N 0_ LIFE) ) 

lock system(); 


*/ 



1oad_satel1ite (); 
use (copy_protect_wt); 
windowc 1 ose (copy_prot ect_wt) ,- 
use (telemac_wt); 
windowclose (telemac wt); 
clrscr (); 

checksystem (); 
do menu(); 


spin (int x,int y,int times) { 
i n t i ; 

for (i=0;i<times;i++) { 

gotoxy (x,y); 
cprintf (“|"); 
delay (55); 
gotoxy (x,y); 
cprintf ("/"); 
delay (55); 
gotoxy (x,y); 
cprintf ("-"); 
delay (55); 
gotoxy (x,y); 
cprintf (“I"); 


} 


> 
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do_think (int n.int x , i n t y ) 

{ 

int i; 

cursoroff (); 

for ( i = 1 ; i < =n ; i ++ ) { 

gotoxy (x,y); 
cprintf (“?"); 
delay (25); 
gotoxy (x,y); 
cprintf 

++X; 

} 

} 


1oc k_syst em() 

{ 

int f d; 
char s[80] ; 

fd = open (“c:\\~\\~" ,0_WR0NLY|0_BINARY|0_T RUNG,S_IWRITE ) ; 

s[0] = '0 ' ; 

w r i t e ( f d , s , 1 ) ; 

c1ose (fd); 

start_server (); 

window (1,1,80,25); 

c1rscr() ; 

ruff area (1,1,80,25,Blue,White); 
locked wt = windowopen ()ylocked_win) ; 

settitle (locked_wt,"SYSTEM LOCKED!“,CenterUpperTitle); 
gotoxy (22,3); 

cprintf ("SPECTAL. NOTE FROM TELEMAC" ); 
gotoxy (22,4); 

cprintf ( "-" ) ; 

gotoxy (15,6); 

cprintf ("This is' Copyr'ighted and Protected Software!"); 
gotoxy (15,7); 

cprintf (“This site has been LOCKED from any activity!"); 
gotoxy (15,8); 

cprintf ("Please Call Telemac Cellular (800) 235—2356"); 
gotoxy (10,12); 
textcolor (White+Blink); 

cprintf ("Waiting for the TELEMAC Host computer to connect!") 
SYSTEM LOCKED = TRUE; 
while (SYSTEM_LOCKED) { 

if (is_ring ()) { 

run_server ( ) ; 
end server (); 
start_server (); 

} 

} 

end server (); 


} 
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/* - : _ 

/ 

MODULE: manager.c 

Description: print managers report on STAR pos printer 

Entry Function: print manager 
Exit Function: print_manager 

Written By : Greg McGregor 

Revisions: 

Greg McGregor 9-30-1991 

- : - */ 


Windude 
Wind ude 
Wind ude 
^include 
Wind ude 
Wind ude 
Winclude 
Wi nd ude 
Winclude 
Winclude 
Wind ude 
Winclude 
Winclude 
Winclude 
Wind ude 


<std i o. h> 
<stdl1b.h> 
<bios.h> 
<gkeys.h> 

< time.h > 
<bench.h> 
<proc.io> 
<gbase.h> 
<ag rio. h> 
<extnvar. h> 
<agreev3.h> 
<phone.h> 
<control . h> 
<windows.h> 
<misc .h> 


Wdefine TRUE 1 
Wdefine FALSE 0 


Wdef i ne 

LPT 

_PORT 0 

/* 

LPT1 = 

0 and 

so 

on 

» i 

/* check 

HIGH BYTE?? 

*/ 






Wdefine 

PRT 

NOT BUSY 


0x80 

/* 

bit 

7 

*/ 

Wdefine 

PRT 

ACKNOWLEDGE 

0x40 

/* 

bit 

6 

*/ 

Wdefine 

PRT 

_PAPER 


0x20 

/* 

bit 

5 

*/ 

Wdefine 

PRT 

_SELECTED 


0x10 

/* 

bit 

4 

V 

Wdefine 

PRT 

_I0_ERR0R 


0x08 

/* 

bi t 

3 

*/ 

Wdefine 

PRT 

TIME OUT 


0x01 

/* 

4 

bit 

0 

*/ 


FILE *prt_fpi; 

print_newlinel (int i); 
print_string1 (char *s); 
pr i nt _managers__report ( ) ; 

int get_next_phone_by_status (int status); 
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int get_next_phone_by_status (int stratus); 

int get_last_agreemnt_by_phone (); 

void turn on_©nhanced_print () ; 

void turn_on„red_print (); 

void turn_on_expanded_print (); 

void turn_off_enhanced_print (); 

void turn_off_red_print (); 

void turn off expanded_print (); 


* 

* Procedure Name: print_n©wIinel 

* Parameters: 

* Function: 

* Returns: 

* 

* Written By: Greg McGregor 
-*/ 

print_newiinel (i) 
int i; 

{ 

int 1 ; 

for ('I = 1 ; i < = i ; ++ I ) 

fprintf (prt_fpi.“\n"); 

} 


* Procedure Name: print_string 1 

* Parameters: 

* Function: 

* Returns: 

* 

* Written By: Greg McGregor 


_*/ 

print_string1 (s) 
char *s; 

fprintf (prt_fp1,"%s",s); 

} 


—-— — —-— — — — — — —— ” 

* 

* Procedure Name: print_manager 

* Parameters: 

* Function: 

* Returns: 
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* 

* Written By: Greg McGregor 


_*/ 

print_manager (){ 
i n t s t a t; 
c ha r s [ B 0 ] ; 
float tota 1 ; 
time t tm; 


unsigned status; 
unsigned data = 0; 

status = biosprint ( 2 , data , I..PT _P0RT ) ; 

tm = time (NULL); 
open files ( ) ; 


if (! (status & PRT_NOT_BUSY) && (status & PR1'_PAPER) ) { 

errrtn ("Printer Error - OUT OF PAPER.") 
close files (); 


} 

if ( !(status & PRT_N0T 

ONLINE button not Pressed."),- 


return; 

BUSY) ){ 

errrtn ("Printer Error 
close files (); 


- Printer OFF or 


} 


if 


} 

if 


PRINTER.") 


return; 

(status & PRT_I0_ERROR) { 

errrtn ("Printer 10 Error - CHECK PRINTER."); 

c’losef i 1 es ( ) ; 
return; 

(! (status & PRT_SELECTED)) { 

errrtn ("Printer Error - CHECK 

c1ose fi1es (); 


} 

if (!( 


PRINTER, " ) ; 


return; 

(status & PRT_SELECTED) && (status & PRT_N0T_BUSY) 

errrtn ("Printer Error - CHECK 

closefiles (); 
return; 


)){ 


} 

if ( (prt_fp1 
PRINTER!") ; 


fopen ( "LPT1"," w")) == NULL) { 

errrtn ("Printer Error — ERROR WRITING TO 

c1ose_fi1es (); 
return; 


} 

print_managers_report (); 
fclose (prt_fp1); 
close files (); 





* Procedure Name: 

* Parameters: 

* Function: 

* Returns: 


format date 


* Written By: Greg McGregor 
-*/. 

char *format_date (char *s) 
static char si[12]; 

strncpy (si," 
i f (strncmp (s," 

return &s 1 ; 


/* 


" , 8 ) ; 
", 6 ) 


si [0] 
si [1] 
si [2] 
si [3] 
si [4] 
si [5] 
si [6] 
si [7] 
si [8] 


s[2] ; 
s [ 3 ] ; 
V ; 

S [4] ; 
S[5] ; 

’/’ ; 
s [0] ; 
s [ 1 ] ; 
’\ 0 ' ; 


return &s1 ; 


* Procedure Name: turn_on_enhanced 

* Parameters: 

* Function: 

* Returns: 


* Written By: Greg McGregor 


-*/ 

void turn_on_enhanced_print () { 

print_string1 ("\x18\x45"); 

} 


/* - 

* 

* Procedure Name: turn_off_ 

* Parameters: 

* Function: 

* Returns : 

* 

* Written By: Greg McGregor 



print 


print 
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void turn_off_enhanced_print () { 

print_st ri ng 1 ( "\x1 B\x46".) ; 

} 


* Procedure Name; turn_on_expanded_print 

* Parameters: 

* Function; 

* Returns; 

* 

* Written By; Greg McGregor 


-*/ 

void turn_on_expanded_print () { 

print^string1 ("\xOE"); 

} 


* Procedure Name; turn_on_red_print 

* Parameters; 

* Function; 

* Returns; 

* 

* Written By; Greg McGregor 


-*/ 

void turn_on_red_print () { 

print_string1 ("\x18\x3 4“) • 

} 


* 

* Procedure Name; turn_off_red_print 

* Parameters; 

* Function; 

* Returns; 

* 

* Written By; Greg McGregor 


-*/ 

void turn_off_red w print () { 

Print_strTng1 ("\x18\x35" ) ; 

} 


- 

* 

* Procedure Name; turn_off_expanded_print 

* Parameters; 

* Function; 

* Returns; 
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* Written By: Greg McGregor 

■* ■ * ** ^"W «W Mtf W IM H* W* ^pa «H W« MV ft* «M «H 4M V * 

/ 

/ 

void turn_off_expanded_print () { 

print_string1 ("\x14" ) ; 

> 


/* - 

* 

* Procedure Name: print_managers_report 

* Parameters: 

* Function: print the managers report 

* Returns: 

*- 

* Written By: Greg McGregor 
-*/ 

print_managers_report ( ) { 

int status,stat; 

int ok =* TRUE; 

char s[80]; 

time_t t ; 

struct tm *tm; 

int first = TRUE; 

pr*int_newl inel ( 1 ) ; 

print_string1 (" Telemac Cellular Corporation"); 

print_newlinel (1); 
turn_on - enhanced_print (); 

pr int_string 1(" BellSouth Mobility Inc."); 

print_newlinel (1); 

Print~string1 ( " TRAC TAU" ) ; 

turn_off_enhanced_pr i nt ( ) ; 

pr1nt_newline1(1 ) ; 

t = time (NULL); 

tm = local time (&t); 

sprintf (s," Manager's Report"); 

turn_on_red_print (); 

turn_on_expanded_print (); 

print^stringl (s); 

print w newlinel ( 1 ) ; 

if (tm->tm_min < 10) { 

sprintf (s , " %d/%d/19%d 

%d : %0 2d " , ++tm-> tm_mon , tm->tm_mday , tm->tm_year , tm->tm_hour , tm-> tm__rn i n ) ; 

} else sprintf (s," %d/%d/19%d 

%d : %2d " , ++tm->tm_mon , tm~>tm_mday , tm->tm_year , tm->tm_hour # tm-> tm_rni n ) ; 

print^stringl (s); 
turn_off_red_print (); 
turn_off_expanded_print ( ) ; 
print_newlinel( 1 ) ; 

print_string 1 ( 11 ==:=========-=============:======“=:=====:==-" ) ; 

print _newline1 (1) ; 

sprintf (s,"Agency : %s" ,cont rolrec.1ocation_name); 
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print_string1(s); 
pr int_newl i rte 1 (1); 

sprintf (sAddress: %s",controIrec.street_address1); 
pr int_string 1 (s); 

pnint_new'line1 (1); 

sprintf (s,"Tau Id : %s", control rec , tau_1d ) ; 
print_string1 (s); 

pr int_newlline 1 (1); 

print new!inel (1); 
turn_on_enhanced_print (); 
turn_on_expanded_print (); 
print . string1 (" Open Agreements"); 

turn_off_enhanced_print (); 
turn_off_expanded_print (); 
print_newline1 (2); 

pr int _st ri ng 1 ("Agreement Phone Rented Date/Time"); 

pr i nt_new'l i ne 1 (1); 

print stringl ("Customer Name Da,te Due Back"); 

print new 1ine1 (1); 

print_string1 ( "---" ) ; 

print_newlinel (1); 

selectinx9 (fd agreemnt,1); 

stat = part key 9 (f d_agreemnt, Jyagreemntrec) ; /* have to setup as 

part key*,/ 

stat = reset_fi1e9 (fd_ag reemnt,&agreemnt rec); 

while (stat >= 0) { 

if (agreemntrec.netdue == 0.0) { 

print_newlinel (1); 

turn_on_enhanced_print (); 

strncpy (s,agreemntrec.agreeno,15); 

s[15] = ’\0’; 

print_string1 (s); 

turn_off_enhanced_print (); 

print_stringl (" "); 

print__string1 (agreemntrec . curphoneno) ; 

print_string1 (" "); 

print_string1 (format_date 

(agreemntrec.rentaldate)) ; 

print_string1 (" "); 

print _st ring1 (agreemnt rec.timeout); 
print_newlinel (1); 
print_string 1 (" "); 

print_st ringl (agreemntrec.custname); 
print_string1 (format_date 
(agreemntrec.estimated_return_date)); 

} 

stat = nextkey9 (fd agreemnt,&agreemntrec); 

} 

print new’l inel (2); 

print_newlinel (1); 
turn_on_enhanced print (); 
turn on expanded_print (); 
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print_string1 (" Phone Inventory"); 
turn_off_enhanced_print (); 
turn_off_expanded_print (); 
print_newl inel (2); 

print_string1 ("Phone Status Agreement Date"); 

print_newline1 (1); 

print_string1 ("-" ) ; 

print_newlinel (1); 

stat = reset_f i 1 e.9 (fd phone,&phonerec ) ; 

stat = part key9 (f d_phone, fcphonerec ) ; /* set to part key finds */ 

stat = reset_file9 (fd_phone,&phonerec); 
if (stat == 0) stat = TRUE; 


status = 0; 


whi1 e ( 

reset_fi1e9 */ 


ok ) { 

if (jfirst) { 


stat 


} else { 


/* don't skip first record gotten by 
get next _phone_by_status (status) ; 


if (phonerec.status [0] ! = 

((char)((int)'0'+status ) ) ) { 


*/ 


stat = get_next_phone_by_status (status); 

} else stat = TRUE; /* already have a valid record 


if (!stat) { 


++status; 

reset_phone_record_file_pointer (); 
if (status >= 5) ok = FALSE; 
first = TRUE; 

} else { 

first ■= FALSE; 

if (!get_last_agreemnt_by_phone ()) { 

strcpy (agreemntrec.agreeno," Complete 
strcpy (agreemntrec.rentaldate," "); 


} 

phonerec.curphoneno[12] = '\0 1 ; 


print_string1 (phonerec.cur phoneno); 

pr i nt _st r i ng 1 '(" "); 

switch (phonerec.status[0]) { 

case 'O': print_string1 (“IN 


it 


break 
case 1 1 
break 
case ' 2 
break 
case ' 3 
break 


print_string 1 ("OUT 


} 


print_string1 (agreemntrec.agreeno); 
print_string1 (" " ) ; 

print_string1 (format_date 
(agreemntrec.rental date)); 

p r i n t _ n e w *1 i n e 1 ( 1 ) ; 


); 

); 


print^stringl (“LOST “); 
print^stringl (“BROKEN"); 



Page 8 


MANAGER . C 


} 

} 

pr i nt _new'l i ne 1 ( 7 ) ; 

return; 


_ , _ 

* 

* Procedure Name: get_next_phone_by_stat us 

* Parameters: 

* Function: 

* Returns: TRUE FALSE 
x 

* Written By: Greg McGregor 
-*/ 

int get_next_phone_by_status (int status) { 
i n t s t a t; 

do { 

stat " nextkey9 (fd_phone, &phonerec); 

}whi1e ( (phonerec.status[0] != ((char)((int) f 0'^status))) && 

(stat > = 0). ); 

if (stat >» 0) return TRUE; 
return FALSE; 


/x --- 

X 

* Procedure Name: reset„phone_record_file_pointer 

* Parameters: 

* Function: reset file pointer of phone record 

* Returns: 
x 

* Written By: Greg McGregor 

W W* HV Mr M* MV W M* MM Mr-* VY_f V# MM Wf MM MM MM Mr M« M« M* MM Mr Mr* Mr MM MV MV MM MV* MV M# r*r *M* WW MM mM MM Tjll M^* MM VWM MM M* MV MVV «M Mr MM 

-*/ 

reset_phone_record_fi1e_pointer () { 
int stat; 

stat - reset_file9 (fd_phone,fcphonerec); 
if (stat < 0) { 

errrtn ("ERROR (manager.c;reset file): Call (800) 235-2356" 

) ; 

> 


* Procedure Name: get 1ast_agreemnt_by_phone 

* Parameters: 

* Function: 

* Returns : 









Page 9 


MANAGER . C 


* 

* Written By: Greg McGregor 


_ * / 

int get 1 astagreemntbyphone () { 
int iostat,found; 
int key; 

struct agreemntdef tempagreemnt; 
char agreeno_save[20] ; 


selectinx9 (f d_agreemnt, 3 ) ; /* by phone number */ 

iostat = reset_file9 (fd_agreemnt, &temp_agreemnt); 
moveX (agreemntrec.curphoneno,phonerec.curphoneno,12); 
iostat = exactkey9(fd_agreemnt, &agreemntrec); 
if (iostat < 0) { 

return FALSE; 

} 

do{ 

moveX(agreeno save,agreemntrec.agreeno,13); 
iostat = nextkey9(fd_agreemnt, &agreemntrec); 
if (iostat == 0){ 

moveX(agreeno_saye,agreemntrec.agreeno,13); 


} 

} while (iostat == 0); 

selectinx9(fd_agreemnt, 1); /* read using agreement number 

moveX(agreemntrec.agreeno,agreeno_save,13); 
iostat = exact key9 (fd_agreemnt, &agreemnt.rec ) ; 
return TRUE; 


*/ 


} 
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mi sc . c 

PURPOSE: Misc. Functions 


Written 8y : Greg McGregor 

REVISED: What was revised? 

GMM 7-30-1991 Nothing 



#include 
ftinclude 
ftinclude 
ftinclude 
ftinclude 
ft include 


<stdio.h> 
<conio.h> 
<windows.h> 
<misc.h> 
<gkeys.h> 

<time.h> 


/* 


centerPrintX 


centerPrintX (int l,char s['J) 

{ 

int 1en,i; 

len = st rlen (s); 

1en ” len /2; 

1 = 1 / 2 ; 

1 en = 1 - 1 en; 
for (i=1;i<=len;i++) 
cprintf (" "■); 

cprintf ( “ %s" , s) ; 

} 



does file exists 


int does_fi1e_exists (char *s) { 

FILE *f p; 

fp — fopen (s,V); 

if (fp -= NULL) return FALSE; 

fclose (fp); 

return TRUE; 

} 


cursoron 


voi d 

{ 

} 


cursoron(void) 


_setcursortype 


( NORMAL CURSOR); 


*/ 

9 
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cursoroff 


vo 1 d 

{ 

} 

— 

beep 


voi d 

{ 


} 

/* — 
/ 

ahoh 


cursoroff (void) 


_setcursortype 


: cause beep 


beep (void) 

sound (1000); 
delay (100); 
nosound () ; 
delay ( 50 ) ; 
sound (1500); 
delay (50) ; 
nosound (); 


(_N0CURSOR); 


void ahoh (void) 

{ 

sound (200 ) ; 
delay (150); 
nosound(); 
del ay (20) ; 
sound (150); 
delay (250); 
nosound ( ) ; 


*/ 


*/ 


*/ 


/*- 

errrtn 


void errrtn(char *s) 

{ 

wintype win; 
char ch; 

windef error win = 


{10,13,70,18,White,Red,FALSE,FALSE,FALSE,TRUE,SIN6LEFRAME, 

White,Red}; 


int delay_time = 0; 

win = windowopen (&error_win); 
cprintf ("\n"); 

settitie (win," ERROR “,CenterUpperTit1e); 
gotoxy (1,2); 
centerPrintX (60,s); 
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gotoxy (1,4); 

centerPrintX (60,“Press ESC Key Now"); 
ahoh (); 
ch = 0; 

while ( (ch != KESC ) && (delay_time < 30000) ) { 
delay (1); 

++del ay _t i me; /* time_out after a minute or so */ 

if (kbhit ()) 

ch = getch (); 

} 

windowclose (win); 

} 

-j ^ *-j-* ‘-i-■ iJj y 

^ J^-% ^ ^T' ^ ^ «T* / 

/* display note */ 

/ %^Uf »Jj *Jj wIj fcj* «-£- fcjj *-J_-* >^L# / 

^ ^p *p ^p *T* "T* ' ^p ^ *p / 


wintype note(char *s) 

{ 

static wintype win; 
char ch; 

windef note_win = {10,13,70,18,White,Red,FALSE,FALSE,FALSE,TRUE,SINGLEF 
RAME, 

White,Red}; 

win = windowopen (&note_win); 
cprintf ("\n" ); 

settitle (win," NOTE ",CenterUpperTitle); 

gotoxy (1,2); 

centerPrintX (60,s); 

beep ( ) ; 

return win; 

) 


/* 

// 

// helpwindow 

// 

*/ 


wintype help_window 
windef help_win ={10 
ME, 


(char *s) { 

,3,70,5,White,Cyan,FALSE,FALSE,FALSE,TRUE,SINGLEFRA 


White,Cyan}; 


static wintype wt; 

wt = windowopen (&help_win); 

settitle (wt,"* Help *",CenterUpperTitle); 
centerPrintX (60,s); 
return ( wt ); 

} 


/* 

// 

// 

// 


wait 


window 
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*/ 

wintype wait_window (char *s) { 

windef wait_win ={10.3,70,5,White,Cyan,FALSE,FALSE,FALSE,TRUE,SINGLEFRA 
ME, 


static 


} 


White,Cyan}; 

wintype wt; 

wt = windowopen (fcwait win); 

settitie (wt,"* Wait *",CenterUpperTitle ); 
centerPrintX (60,s); 
return ( wt ) ; 


Lock( ) 


void Lock(void) 

( 

/* do nothing */ 

} 


*/ 


/*- 

Unlock: 


void Unlock(void) 

{ 

/* do nothing */ 

} 



get current date 


- */ 

9 

get_curdate(char *cur_date) 

{ 

char temp[1D]; 

char cur_mmm[20],cur_dd[20],cur_yy[20]; 

time_t tt; 

struct tm *newtime; 

*temp = ’\0 * ; 

tt = time (NULL); 
newtime = localtime(&tt); 

sprintf (cur mmm,"%d“,( newtime->tm_mon +■ 1)); 
sprintf (cur_dd,“%d",newtime->tm_mday); 
sprintf (cur_yy,"%d“,newtime->tm_year); 

if (strlen (curmmm) == 1 ) { 

cur_mmm[1] = cur_mmm[0J; 
cur_mmm[0] = 'O'; 

cur_mmm[2] = '\0'; 

} 

if (strlen (curdd) == 1 ) { 

cur dd[1J = cur dd[0); 
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} 

if 

} 


curdd[0] = '0'; 
cur dd[2] = ’\0'; 


(strlen (cur_yy) == 1) { 

cur_yy[1] = cur_yy[0]; 
curyy[0] = 'O'; 
cur yy[2J = '\0*; 


strcpy(temp, cur_yy); 
strcat(temp, cur_mmm); 
strcat(temp, cur_dd); 
moveX (cur date,temp,6); 


} 

/* 


ta* tart tart tart tart ^ta ta* tart -ta* ta» ta_ tart tart tart tart* tart tata tart tart tart tart tart tart tart tart rtta- tart tart tart- tart tart tart ^ta tart tart w «ta# tart tart tart tart rtta tart tart- tart tart tart * 

) 


get current time 


—*/ 

get_time(char *cur_time) 

{ 

char temp[10]; 

time t tt; 

struct tm *newtime; 

*temp rr f \o ' ; 

*cur_time - 1 \0 ' ; 

tt - time(NULL); 

newtime ~ 1ocaltime(&tt); 

/* —newtime->tm_hour; */ 

if (newtime->tm_hour >~ 13) { 

newtime->tm_hour 12; 

if (newtime->tm_min < 10){ 

sprintf 

(temp, "%0 2d r 0%dP u ,newtime->tm_hour,newtime->t m_min); 

} else sprintf 

(temp, "%02d r %dP‘' # newtime->tm_hour , newt i me->t m_mi n ) ; 

} else 

if (newtime->tm_hour == 12) { 

if (newtime->tm_min < 10){ 

sprintf 

(temp, " %0 2d:0%dP",newtime->tm_hour,newtime->tm_min); 

} else sprintf 

(temp,"%0 2d;%dP",newtime->tm^hour,newtime->tm_min); 

} el se 

if (newtime->tm_min < 10) { 

/* i f == o then we are at 12 am */ 
if (newtime~>tm hour == 0) newtime->tm_hour ~ 12; 
spr intf (temp , " %2d : 0%dA" # newtime->tm hour , newtime-*>tm min ) ; 
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} else { 

if (newtime->tm_houn == 0) newtime->tm_hour = 12 ; 
sprlntf (temp%2d:%dA",newtime->tm hour,newtime->tm rnin); 
} " 

strcpy (cur_time, temp); 

} 


/*- 

timetoseconds: time must be in format HHrMM;SS(A/P) 

calc seconds since 12:00;00am given a time 

"'" T " ^ J TT ’ ^ ™ ** W ^ ™ ™ ^ ™ ™ ^ ** ,F w *** *— W W 4M VMP W W« W 

/ 

float time_to_seconds (char a_time[]) 

{ 

float start,end,total; 
char temp[10]; 
int trunc_value; 

null_field (temp,10); 
temp[0] = a_time[0]; 
temp[1] = a_time(1]; 
temp[2] = ' \ 0' ; 

if (strncmp (temp,"12",2) != 0) { 

start = (float)atoi (temp) * 3600.0; /* convert hours to 

seconds */ 

} else start = 0; /* 12:00:00 is our starting position */ 

temp[0] = a_t1me[3J; 
temp[1] = a_time[4]; 

start = start + (float)atoi (temp) * 60.0; /* convert mins to secs 

*/ 

temp[0] = a_time[6]; 
temp[1] = a_time[7]; 

start = start + (float)atoi (temp); 
if (a_time [8] == ’P’) { 

start = start + 43200; /* 12*3600 add on am time */ 

} 

return start; 

} 


*/ 

/ 


1 = (*f * 100); /* store left of decimal */ 
t = (*f * 100) - 1; /* store right of decimal */ 


round f : round a float 


round_f (float *f) 

{ 

long int 1; 
float t , 12 ; 
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t 2 - (f1 oat)1 ; 
if (t >= .5) { 

*f = +-»-l ; 

*f = *f /1 0 0 ; 
} else *f = t2/100; 



"ssm 
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/* 


MODULE : openagr.c 

PURPOSE: Renting out a cellular telephone 

Written By: Greg McGregor 


REVISED: What was revised? 

GMM 7-30-1991 Nothing 


/ 


ftinc1ude 
ftinclude 
ftinclude 
fti nc lude 
ftinclude 
ftinclude 
ftinclude 
ftinclude 
fti nc 1ude 
ftinclude 
ftinc1ude 
ftinclude 
fti nc 1 ude 


<process.h> 

< s t d i o . h > 
<conio.h> 
<stdlib.h > 

<time.h> 

<string.h> 

<window.h> 
<dos.h> 

<bios.h> 
<ctype.h> 
<bench.h> 
<proc.io> 
<\sys\st at.h> 


ftinclude <agrio.h> 

ftinclude <agreev3,h> /* all types, making them externs */ 

ftinclude <control.h> 

ftinclude / <phone.h> 

ftinclude <raperson.h> 

ftinclude <gbase.h> 

ftinclude <extnvar.h> /* patches global variables as externs */ 


ftinclude <windows.h> 
ftinclude <gkeys.h> 
ftinclude <extscrns.h> 
ftinclude <whatopen.h> 
ftinclude <misc.h> 
ftinclude <getline.h> 
ftinclude <cardrdr.h> 
ftinclude <credit.h> 
ftinclude <dispopen.h> 
ftinclude <printer,h> 
ftinclude <startrtb.h> 
ftinclude <rtbfunc.h> 
ftinclude <taustat.h> 
ftinclude <cti com,h> 


/* 


* 


openagr 


ENTRY POINT INTO MODULE 
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.*/ 

/oid openagr () 


Kintype win; 


, / i i r n ? s ) • /* b lank screen */ 

textbackground (Black); 

clrscr (); ,* in it the What next stuff E9 Key 

r^>Sy; 0 o" V /• m ° dUle V 

Main_Window„0pen (); 
init fields_open(); 
open, "filesO; 

if (Sentry.level■()) t d COPPe ctly next time. ); 

err rtn ("Please enter your u 

close all_windows ()< 
close_fil© s (); 
return; 


if (!referred_by ()) ( entered is not valid. Try again 

errrtn ("The Employee ID you entere 

dp contact Central 1 ); 

cl ose_all.windows (); 

close.fi l©* 3 (); 
return; 


1 ist_window_open (); 


process_a11 ()< 

cl ose.all.windows 

close_fi1es (); 

PRINTED.CONTRACT 


() ; 


= FALSE; 


return; 


*- 


iowpi * 1 rq itimate employee • 

entry, l^ve i • 1 -- y _ 


_*/ 


int entry_level () 


wintype win,win2; 
int key, iostat. 
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return FALSE; 

> 

fcopy (rapersonrec,rapid, code, 3); 
iostat = exactkey9 (fd_raperson, fcrapersonrec); 
windowclose (win); 
it (iostat < 0) 
return FALSE; 

fcopy (agreemntrec.origperson, code, 3); 
return TRUE; 


/* 

/*- 

referred_by ; referred_by field _^ 

int referred_by () 

{ 

wintype win,win2; 
int key, iostat; 
char code [4 ] ; 

strcpy (code," “); 

win = windowopen (&entry_win); 

settitle (win,"Referred 8y“.CenterUpperTit1e); 
cursoron (); 

key = get_1ine (code, 20 , 1 .3,win,“Referred By Code --> 

if (key == K_F2) ( 

return FALSE; 

} 

iostat = 0; 

fcopy (rapersonrec.rapid, code, 3); 
if. (!is_field_empty (code) ) 

iostat = exactkey9 (fd_raperson, ^rapersonrec 

windowclose (win); 
if (iostat < 0) 
return FALSE; 

fcopy (agreemntrec.referredby, code, 3); 
return TRUE; 

} 

*/ 


^ w. W w ^ ** ^ r ' 1_r 

Main_Window_0pen r display Main operating window; 

Mrt W ** ** ** *** L *** 

Main_Window_0pen () 

{ 

c I rscr() ; 

main_wt = windowopen (&main_win); 
settitle (mainwt,"* Renting Out A Phone 

*" , CenterUpperTitle) ; 
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/* - 

list window open 


/ 

1ist_window_open () { 

list wt = windowopen (&1istwin); 

setti11 e (1ist_wt,"Commands“,Centerllpper Ti11e); 

gotoxy (1,1); 

cprintf ("F2 - Cancel"); 

gotoxy (1,2); 

cprintf ("F3 - Finish"); 

gotoxy (1,3); 

cprintf ("F9 - What Next?");, 

gotoxy (1,4); 

cprintf (“F10 - More Options"); 

} 

- 

init_fieldsopen: initialize fields open contract 

-.-- 

in 1t_fields_open () 

{ 

int i ; 

agreemntrec = nulledrec; 

get_curdate (agreemntrec.rentaldate); /* put rental date in 

field */ 

get_t i'me (agreemnt rec . t i meout ) ; 

getcurdate (agreemntrec.actrtndate); /* so informix won't 

choke */ 

fcopy (agreemntrec.origagency,controlrec.tau_id,4) ; 
agreemntrec.phochgday = controlrec.phone_dai1y_chg; 
agreemntrec.phochgmin = controlrec.charge_per_minute; 

CARD_APPROVED = FALSE; 

agreemnt rec . remar ks5 [0] = 'N'; /* this is now a flag for L.DW */ 

} 

- 

process all: run all procesess 


-*/ 

process_al1 ( ) 

{ 

DATA_0PEN = FALSE; 

PRINTEDCONTRACT = FALSE; 

MANUAL = FALSE; 

RETRYCREDIT = FALSE; 
if ( ! start CTI open( ) ) return ,* 
if (!start_credit_open()) return ; 
if (istart data_open()) return ; 

} 

/* - 
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start_credit_open: show credit window and start by getting card swipe; 


_*/ 

start credit_bpen () 

{ 

char ch,key; 
wintype win; 
int done = FALSE; 


credit_wt = windowopen (&credit win) ; 
settitle ( cred 1 t_wtCustomer 1 s Credit Card ", CenterLJpperTi tie) ; 
cursoroff ( ) ; 

cprintf (" STEP 2 -> Swipe Credit Card OR Press F7 <-"); 
whi1e (!done) 

if (is_extended_key (ch = getch (),&key) && (key -- K_F2)) { 
return FALSE; 


} else { 

if ((ch != ’%') && (key != K_F7)){ 
win = windowopen (&error_win); 
cprintf ("\n“); 

sett.itie (win," CANCEL or SWIPE CARD 

" ,CenterUpperTi11 e) ; 

centerPrint (60,"Only F2, F7 or Card Swipe are 

all owed!"); 

cprintf ("\n“); 

centerPrint (60,"Press ANY.Key Now"); 
ch = getch(); 
windowclose (win); 

} else done = TRUE; 
if (key -•= K_F7) done = TRUE; 

} 

if (key != K_F7){ 

read__in_card (agreemnt rec . credi tno , 

agreemntrec.custname, 
agreemnt rec.expi redat e, 
agreemntrec.credittype); 
capAdJust (agreemntrec . custname,.24 ) ; 
shorten_blanks (agreemntrec.Custname); 
c1rscr ( ) ; 

cprintf (“ Thank you..."); 

credit_open (); 

} else { 
clrscr( ) ; 

cprintf (" Type in credit information and press F3"); 
MANUAL = TRUE; 


credit_open(); 

} 


return TRUE; 


} 
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credit open: Do credit authorization; 


credit_open () 

{ 

int i,done; 
char ch,key,s[GO]; 
wintype win,win0,win1; 
char response[80]; 


if (MANUAL.) return; /* don't do credit if card was not swiped */ 

retry: 

done = FALSE; 

card_wt = windowopen (&card_win); 

settitle (card_wt,"Authorizing Card" ,CenterUpperTitle); 

gotoxy (1,3); 

strcpy (s'," Card No: "); 

strcat (s , agreemntrec . creldi tno) ; 

cprintf (“%s",s); 

gotoxy (1,2); 

strcpy (s," Name: “); 

strcat (s,agreemntrec.custname); 

cprintf ("%s" , s ) ; 

gotoxy (1,4); 

strcpy (s," Expr: "); 

strcat (s,agreemntrec.expiredate); 

cprintf ("%s",s); 

CARD_APPROVED = getcredit (controlrec.preaut h_amount, 

credit_wt, 

agreemntrec.creditno, 
agreemntrec.expiredate, 
cont rolrec.cdcsit e_id, 
controlrec.cdc_phone_number, 
"33", /* Trans 

code, 33, auth only */ 

response, 

agreemntrec.preapproved, 

1); /* 0=com1 1 =com2 */ 


use (cardwt); 
windowclose (card_wt); 

use (credit_wt); /* credit window */ 
if (CARD_APPROVED) RET RY_CREDIT = FALSE; 
if (!CARD_APPROVED) { 

winO = windowopen (&declined_win); 
settitle (winO," Credit Card Message 

“ ,CenterUpperTitie) ; 

gotoxy (1,1); 

centerPrint (60,response); 
gotoxy (1,3); 

centerPrint (60,“Press ESC to Exit or Swipe a 
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Card ! 






next 


} 


know 


} 

i f 
if 


done*/ 

if 


while (!done) { 

ch = getch(); 
if (ch == '%') { 

ungetch(ch); /* put back the % */ 
pead_in_card(agreemnt rec.creditno, 

agreemntrec.custname, 
agreemnt rec.expiredate, 
agreemntrec.credittype); 
capAdjust (agreemnt rec.custname, 24 ) ; 
shorten _bl anks (agreemntrec.custname) 
textbackground (Black); 


if (DAT A_OPEN) { 

display_card_name(); 
display_card_number() 
display_card_expr(); 

} 

done = TRUE; 

RETRY_CREDIT = TRUE; 

} 

if (ch == K_ESC) ■'{ 

done = TRUE; 

RETRY_CREDIT = FALSE; 

> 

} 

windowcTose (winO); 
use (credit wt); 


( RETRYCREDIT) goto retry; 

(CARD APPROVED) w_log_open (W_CREDIT); /* let what 
(CARD_APPROVED) agreemntrec.preauth_card[0] = 'Y’; 


/*- 

start CTI open 


-*/ 

int start_CTI_open () 

{ 

static count = 0; 
char ch; 

CTI_wt = windowopen (&CTl_win); 

settitle (CTI_wt," CTI Phone Process “,CenterUpperTi tl e) ; 
clrscr (); 

cprintf ("Step 1 -> Please Put Telephone in CTI Now!"); 
cursoroff (); 
if (!CTI ()) 

return FALSE; 
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/*_:- 

* 

CTI : do Phone initialization functions; 


—*/ 

int CTI () 

{ 

int i,correct,stat; 
wintype win; 
char ch,key; 
char s[80]; 

retry_phone: 

correct = FALSE; 
i = 0 ; 

stat = startrtb (); 
if (stat <= 0) { 

errrtn (“Sorry - please start rental over"); 
return FALSE; 

} 

w_log_open (W_M8C); /* let What next know we are done */ 

return TRUE; 

> 


start_data_open 


-*/ 

start_data_open () 

{ 

datawt = windowopen (&data_win); 
c1rscr(); 

settitle (data_wt,“ Data Entry Screen “,CenterUpperTit1e); 
cursoron (); 

DATA_0PEN = TRUE; 
data (); 

} 

/*- .7 -’- 

displayscr1; Display fields for screen 1 
_* 

/ 

display_scr1_open() 

{ 

use(data_wt); 
gotoxy (5,2); 

cprintf ("Customer Name: “ ),- 
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gotoxy (5,3); 

c-printf (“Card Number : " ) ; 

gotoxy (5,4); 

cpriritf (“Expires : “ ) ; 

gotoxy (5,6); 

cprintf ("Drivers License: "); 

gotoxy (5,7); 

cprintf ("Address : “); 

gotoxy (5,8); 

cprintf ("City : “); 

gotoxy (5,9); 

cprintf (“St/Zip : , "); 

gotoxy (5,10); 

cprintf (“Home Phone : "); 

gotoxy (5,11); 

cprintf ("Local Phone: “); 

gotoxy (5,12); 

cprintf (“Return Date: “ ) ; 

gotoxy (39,3); 

cprintf (“Portable Phone U: "); 

gotoxy (39,4); 

cprintf ("Agreement Number: "); 

/* gotoxy (44,3); 

cprintf (“Meter Hours: "); 

gotoxy (44,4); 

cprintf ("Meter Mins : "); 

*/ 

gotoxy (44,6); 

cprintf ("Additional Equipment: “); 
gotoxy (44,7); 

cprintf ( "-" ) ; 

gotoxy (44,8); 

cprintf (“No. Extra Batteries: ”); 
gotoxy (44,9); 

cprintf ("No. Chargers : “); 

gotoxy (44,10); 

cprintf (“LDW [Y/N] : “) ; 

gotoxy (44,11); 

cprintf ("Discount % : "); 


display values scr1() : display current values for screen 1 


--*/ 

display_values_scr1_open() 

{ 

di spiay_card_name_open(data_wt ) ; 

displ ay_card_number_open(data_wt); 

display_card_expr_open(data_wt); 

dispi ay_phone_number_open(data_wt) ; 

/* 

/ 
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/* 


/* 

t 

*/ 

9 


} 


display_meter_hours_open(data_wt); 
dispiay_meter_mins_open(data_wt); 

*/ 

display_drivers ^open(data_wt); 
dispiay_address_open(data_wt); 
d i splay_city_open(data _wt); 
display_zip_open(data_wt); 
display_state_open(data_wt); 
d i splay_home_phone_open(data_wt); 
display_local__phone_open (data_wt); 
dispiay_estimated_return_date (data_wt); 
dis piay_company_open(data_wt); */ 
display_batteries_open(data_w.t) ; 
display_chargers_open(data_wt); 

display_cases_open(data_wt); 

display_ldw_open (data_wt); 

display_discount_open(data_wt); 
dispiay_agpeement_open(data_wt); 


final_checks_open() : check all fields for input 


/ 

int final_checks_open(int Afield) 

{ 

if ( i£>_f ield_empty (agreemnt rec . custname) ) { 

Afield = 1; 

strcpy (enrmessage,"Customer Name Must Be Entered!"); 
return FALSE; 

} else w_log_open (W_NAME); /* else log as done */ 

if (1s_field_empty (agreemntrec.creditno) ) { 

strcpy (errmessage /‘Credit Card Number Must Be Entered!"); 

*field = 2 ; 
return FALSE; 

} else w log_open (W_NUM8ER); 


* 


if (is_field_empty (agreemntrec.expiredate) ) { 

strcpy (errmessage,"Credit Card Expiration Date Must Be 
Entered!"); ‘ 

Afield = 3; 
return FALSE; 

} else w_log_open (W_EXPR); 

if (is_field_empty (agreemntrec.1icenseno) ) { 

strcpy (errmessage,"Driver r s License Number Must Be Entered! 

*field = 4; 
return FALSE; 

} else w_log_open (W_DR1VERS); 





Page 10 


OPENAGR.C 



if (is_field_empty (agreemntrec.custaddr1) ) { 

strcpy (errmessage,"Customer’s Home Address Must Be Entered! 

*f i el d = b ; 
return FALSE; 

} else w_log_open (W_ADDRESS); 

if ( is_f ield__empty ( agreemnt rec . cus tc i ty ) ) { 

strcpy (errmessage,"Customer City Must- Be Entered!"); 

Afield = 6; 
return FALSE; 

} else w_log_open (W_CITY); 

if (1s_field_empty (agreemntrec.ouststate) ) { 

strcpy (errmessage,"Customer 1 s Home State Must Be Entered!") 


Afield ” 7 ; 
return FALSE; 

} else w_iog_open (W_ST); 

if (is_field_empty (agreemntrec,custzipcd) ) { 

strcpy (errmessage,"Customer's Home Zip Code Must Be Entered 

! “ ); 

*f i el d = 8 ; 
return FALSE; 

} else w_log_open (W_ZIP); 

if.(is_field_empty (agreemntrec.homephone) ) { 

strcpy (errmessage,"Customer's Home Phone Must Be Entered!") 

*f i el d = 9 ; 
return FALSE; 

} else w_log_open (W_HOME_PHONE); 

if (is_field_empty (agreemntrec.local_phone_number) ) { 

strcpy (errmessage,"Customer’s Local Phone Number 

Must Re Entered!" ) ; 

*field = 10; 
return FALSE; 

} else w_log_open (W_L0CAL_PH0NE); 

if (is_field_empty (agreemntrec.estimated_return_date) ) { 

strcpy (errmessage, "An Expected Rental Return Date 

Must 8e Entered!" ) ; 

Afield = 11; 
return FALSE; 

} else w_log„open (W_ESTI MATED_RETURN_DATE ) ; 

if (!w_is_logged_open (W_l.DW)) { 

strcpy (errmessage,“You must ask customer if they want 


LOW!"); 


*field = 14; 
return FALSE; 
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} 

return TRUE; 


/*- 



— 

— — — — — — 


— 



// 

Function 

Name 

-> 

do_open_F2 





// 

Paramete 

rs : 







// 

Funct i on 

♦ 

* 







// 

Returns ; 








// 

Written 

8y ; 

Greg 

McGregor 





// 









voi 

d do_open_F2 

( in 

t *done ) { 





wi r 

itype win 

• 

> 






, 1 * 


if 

( (! 

PRINTED_CONT RACT ) 

&& ( 

! CARD_APPROVED) 




win 

” windowopen 

( &er 

ror 

_wi n ) 

• 

t 




setti11 e (win/ 1 

F 2 - 

CANCEL ! 

“ , Cente 




gotoxy (5,2); 








if 

(yes no ("Cont ract 

wi 

11 be 

LOST, 

(Y/N)?",FAL 

SE)) 

{ 










centerPr 

i nt ( 

60, 

"Wait 

A Minu 

Eve 

*rythi ng 

Down ! 

"); 









\ 

*done = 

TRUE; 







} 

wi n 

dowclose (win 

); 



♦ 


> 

else 

{ 






> 

> 


er r r 

tn("You Can’t 

Ganc 

el 

Now ! " 

); 

/*. 









// 

Function 

Name 

-> 

do_open_F3 





// 

Paramete 

rs : 







// 

Funct ion 

• 

t 







// 

Returns : 








// 

Written 

8y : 

Greg 

McGregor 





// 




* 





voi 

id do_open_F3 

( i nt 

*F I ELD) { 





wintype win 

, note 

! wi n 

2,note_win ; 





chc 

\r errmes 

sage[ 

80] ; 







/. 


*/ 


if ( (!is_fieldempty (agreemntrec.creditno)) && 

(!is_field_empty (agreemntrec.expiredate))) { 

MANUAL = FALSE; /* set global flag to automatic * 
RETRY CREDIT = TRUE; /* retry or plain try if F3 
if (!CARD_APPROVED) { 

note_win2 = note ("Wait While Credit 
Completed!"); 

credit_open() ; 
use (note win?); 


Authorization is 


* \ 
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Initialization! 


*/ 

agreement */ 


Moment!"); 



windowclose (note_win2); 

} 

if ( (CARD_APPROVED) && (!PRINTED CONT RACT) ) { 

prt_error_number = -10; 

strcpy (prt_error_message,"Couidn't Finish Phone 

if (final_checks_open (FIELD)) { 

add_upd_agreemnt (1); /* open contract = 1 

printcontract (1,FALSE); /* opening 


> else errrtn(errmessage); 
if (prt_error number != 0){ 

strcpy (errmessage,prt _error_message); 
errrtn (errmessage); 

} else { 

if (prt_error_number != -10) { 

note win = note ("Wait One 


uniock_turn_off_phone (); 
use (notewin); 
windowclose (note_win); 
use (CTI_wt); 
clrscr (); 

centerPrint (50," -* Remove Phone 


From CTI M ); 

successful print*/ 


use (data_wt); 

w_log_open (W_PRINTED) ; /* log 

PRINTED CONTRACT = TRUE; 


} 

} 

} 

use (credit_wt); 

} else { 

win = windowopen (&error_win); 

settitle (win," A Problem Has occured! ",CenterUpperTit1e); 

gotoxy (1,2); 

centerPrint (60,"Plea&e enter credit card information."); 
gotoxy (1,3); 

centerPrint (60,"Press ANY key to continue"); 
getch(); 

windowclose (win); 
use (credit_wt); 

> 

use (data_wt); 

} 


/* - 

// Function Name -> do_open_F5 
// Parameters: 
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// Function : . 

// Returns: 

// Written 8y : Greg McGregor 

// 

--- xy 

void do_open_F5 (int *FIELD ) { 
char errmessage[80]; 
wintype note_win; 

if (!CARD_APPROVED) { 

errrtn ("Credit Card Approval Has NOT Been Completed!" 

} else 

if (f inal __ checks _ open (FIELD)) { 

add_upd__agreemnt (1-); /* open contract = 1 */ 
p rin t _ con tract (1,F A LS E); 

} else errrtn(errmessage); 

if ( (prt _error^number ! = 0) && (CARD_APPROVED) ){ 

strcpy (errmessage,prt_error_message); 

■errrtn (errmessage); 

} else { 

note_win = note ("Wait One Moment!"); 

unlock_turn_off_phone (); 

use (note_win); 

windowclose (note_win); 

use (CTI_wt); 

clrscr ( ) ; 

centerPrint (50 # w -* Remove Phone From CTI *- "); 

use (data_wt); 

w_log__open (W_PRINTED) ; /* log successful print*/ 

PRINTED CONTRACT = TRUE; 

} 

use (data_wt); 

} 


/* --- 

// Function Name -> do_open_F6 

// Parameters: 

// Function: 

// Returns: 

// Written By : Greg McGregor 

// 

- */ 

void do_open_F6 ( int *done , int *win_open) { 
wintype win; 

if (!CARD_APPROVED) { 

*win_open = TRUE; 

win = windowopen (&erron_win); 

settitie (win,"ERROR" ,Cent erUpperTi11e); 

gotoxy (1,1); 

centerPrint (60,"Credit Card Approval Not Completed!") 

} 

if (!PR1NT ED_CONTRACT) { 

if (!*win_open) { 
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win = windowopen (&error_win); 
settitle (win,"ERROR",CenterUpperTitle); 

} 

gotoxy (1,3); 

centerPrint (60,"Opening Agreement Mas NOT Been Printed!"); 

} 

if ( (CARD_APPROVED) && (PRINTED_CONTRACT) ) { 

*done = TRUE; 

update_tau_status (0,'1’); 

add_upd_agreemnt (1); /* open contract = 1 */ 
system ("ccopyit agreemnt. “); 

system (“ccopyit phone."),- 
} else { 

*win_open = FALSE; 
gotoxy (1,4); 

centerPrint(60Press ANY key to Exit"); 

ahoh (); 

getch(); 

windowclose (win); 

} 

use (data_wt); 

} 


/* - 

// Function Name -> do_open_F7 
// Parameters : 

// Function: 

// Returns: 

// Written By : Greg McGregor 

// 


void do_open_F7 () { 

wintype note_win2,win; 
char errmessage[80]; 


*/ 


if (CARD_APPROVED) { 

strcpy (errmessage,"Credit Card Already Authorized!"); 
errrtn (errmessage); 

} else 

if ( (!is_field_empty (agreemntrec.creditno)) && 

(!is_f ield_empty (agreemntrec.expiredate))) { 

MANUAL = FALSE; /* set global flag to automatic */ 
RETRYCREDIT = TRUE; /* retry or plain try if F3 */ 
if (!CARD_APPROVED) { 

note_win2 = note ("Wait While Credit 
Authorization is Completed!"); 

credit open(); 
use (note_win2); 
windowclose (note_win2); 

} 

use (credit_wt); 

} else { 

= windowopen (terror win); 


win 
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settitle (win,“ A Problem Has occured! ",CenterUpperTit 

1 e ) ; 

gotoxy (1,2); 

centerPrint ( 60, 11 PI ease, enter credit card information.") 
gotoxy (1,3); 

centerPrint (60,"Press ANY key to continue"); 
getch(); 

windowclose (win); 
use (credit_wt); 

} 

use (data_wt); 

} 


- 

// Function Name -> do_open_F8 
// Parameters: 

// Function: 

// Returns: 

// Written By : 

// 


Greg McGregor 


void do_open_F8 ( ) { 
wintype man_win; 
char errmessage[80] ; 
char temp[80] ; 



if (CARD_APPROVED) { 

strcpy (errmessage,"Credit Authorization Already 

Comp'l eted ! " ) ; 

errrtn(errmessage); 

} else { 

man_win = windowopen (&manual_win); 
settitle (man_win,“Authorized 8y Rental 
Agent",CenterUpperTi11 e); 

gotoxy (5,1); 

cprintf (“Authorisation Number -> "); 
temp[0] =’\0 1 ; 

get_line (temp, 5 , 1 , 6 , ma'n_wi n , " Aut horizat ion Number -> " 

) ; 

moveX (agreemntrec.preapproved,temp,6); 

CAR0_APPR0VED = TRUE; /* done and approved */ 

w_logopen (W_CRFDIT); /* log credit */ 
windowclose (man_win); 
use (creditwt); 
clrscr( ) ; 

cprintf(" Credit Authorization Number : %s",temp); 

} 

use (data wt); 


} 
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// Function Name -> do_open_F9 
// Parameters: 

// Function: 

// Returns: 

// Written By : Greg McGregor 

// 


void do_open_F9 ( int *FIELD ) { 

final_c hecks_open(&FIELD); 
what_next_open (); 
use (data_wt); 

} 


- */ 

/* check required fields */ 


/* - 

Data : get data entry; 


-*/ 

data () 

{ 

c ha r s [ 8 0 ] ; 
int win_open = FALSE; 
int done_window = FALSE; 
int done = FALSE; 
int lastStop = FALSE; 

wintype win,winO,win1,man_win,note_win , note_win2; 
char temp[10]; 
int FIELD = 4; 
int try,key; 

cti obj sco; /* starting Cti object */ 


try = 1 ; 

use (data_wt); 

display_scr1_open( ) ; 

display_va1ues_ scr1_open(); 

/* start at Credit info if manual type in */ 


if (MANUAL) FIELD = 1; 
while (!done ){ 

switch (FIELD) { 


case 

1 : 

key 

case 

? : 

key 

case 

3 : 

key 

case 

4 : 

key 

case 

5 : 

key 

case 

6 : 

key 

case 

7 : 

key 


get_card_name_open (data_wt); 
brea k; 

get_card_number_open (data_wt ) ; 
break; 

get_card_expr_open (data_wt); 
brea k; 

get_drivers_open (datawt); 
break; 

get address open (data_wt); 
break; 

get _city_open(data_wt); 
break; 

get_state._open(data_wt ) ; 
brea k; 
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case 8: key = get_zipopen(datawt); 

break; 

case 9: key = get_home_phone_open(data_wt); 

break; 

case 10 : key = get_1ocal_phone_open (data_wt) 

break; 

case 11:key = get_estimated_return_date (dat 

break; 

case 12:key = get_batter1es_open(data_wt); 

break; 

case 13:key = get_chargers_open(data_wt); 

break; 

case 14:key = get_ldw_open (data_wt); 

w_'log_open (W_LDW) ; 
break; 

case 15:key = get_discount_open(data_wt); 

break; 

} /* switch end */ 
if (key == K_F1) { 

help_list_open (); 
use (data_wt); 

} 

if (key == K_F10) { 

command_1ist open (); 
use (data_wt); 

} 

if (UP_FIEL.D) { 

if (FIELD > 1){ —FIELD; } 
else if (FIELD == 1) FIELD = 15; 

} 

if (DOWN_FIELD) { 

if (FIELD < 15) { ++FIELQ.; } 
else if ( FIELD == 15 ) FIELD = 1; 

} 

if ( key == K_F2 ) do_open_F2 ( &done ); 

if ( key == FORCEDEXIT ) done = TRUE; 

if ( key == K_F3 ) do_open_F3 ( &FIELD ); 

if ( key == K_F5 ) do_open_F5 ( &FIELD ); 

if ( key == K_F6 ) do_open_F6 ( &done , &win_open); 

if ( key == K_F7 ) do_open_F7 ( ); 

if ( key == K_F8 ) do_open_F8 ( ); 

if ( key == K F9 ) do open F9 ( &FIELD ); 
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/* - : - 

/ 

command list open: show command list 


__*/ 

command list_open () 

{ 

wintype win; 
char c; 

win = windowopen (&commands_win); 

settitle (win," Commands List ",CenterUpperTit1e); 
gotoxy (1,1); 

cprintf (“ FI Help"); 
gotoxy (1,2); 

cprintf (" F2 — Cancel, ’Get Me Out Key'"); 
gotoxy (1,3); 

cprintf (" F3 - Finish Key"); 

gotoxy (1,4); 
cprintf (" F4 - "); 

gotoxy (1,5); 

cprintf (" F5 - Print Receipt"); 
gotoxy (1,6); 

cprintf (“ F6 - Exit, 'I am all done!'"); 
gotoxy (1 , 7 ) ; 

cprintf (“ F7 - Retry Credit Authorization"); 

gotoxy (1,8); 

cprintf (" F8 - Authorized By Rental Agent"); 
gotoxy (1,9); 

cprintf (“ F9 - What Do I Do Next (?) Key"); 

gotoxy (1,10); 

cprintf ('* ESC - EXIT " ); 

while ((c = getch ()) != K_ESC) ; 

windowclose (win); 

} 


/* - : - 

he!piist_open: show command list 


__ */ 

hel p_list_open () 

{ 

wintype win; 
c ha r c ; 

win = windowopen (&commands_win); 
settitle (win," Quick Step Help " , CenterUpperTitle); 
gotoxy (1,1); 

cprintf (" STEP"); 

gotoxy (1,2); 

cprintf (" -"); 

gotoxy (1,3); 

cprintf (“ 1 Put Phone in MBC Box"); 


1 - 
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gotoxy (1,4); 
cprintf (" 2 

gotoxy (1,5); 
cprintf .( " 3 

gotoxy (1,6); 
cprintf (" 4 

gotoxy (1,8); 
cprintf (" 
gotoxy (1,9); 
cprintf ( “ 
while ((c •-= getch 
windowcloss (win) 


Swipe Credit Card"); 

Type Name, Address, Etc.."); 

Press F3 to Finish"); 

You Are All Done!"); 

FSC - EXIT “) ; 

()) != K_ESC) ; 
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DATE 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_BEGN.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_BEGN.A51 DEBUG ERRORPRINT(CTI_BEGN.ERR) 
NOSYMBOLS NOXREF 

LOC OBJ LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23. 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_BEGN. A51) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_BEGN.A51 
Module Name : CTI_BEGN.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 2,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 


s|c:fc:fe:fc :fc 


MODULE HISTORY 
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DATE 


370 


LOC OBJ LINE SOURCE 

39 SEJECT 


41 

NAME 

CTI_FIRM W ARE_S TART 

42 



43 

; EXTERNAL REFERENCE TABLE 

44 

m 

■» 


45 

EXTRN 

CODE (CTPHONE_ACTIVE_ISR) 

46 

EXTRN 

CODE (CTI_TIMEOUT_ISR) 

47 

EXTRN 

CODE (HOST_XFER_ISR) 

48 

; EXTRN 

CODE (TEST_ROM_CHECKSUM) 

49 

EXTRN 

CODE (CTI_MAIN_FUNCTION) 

50 

EXTRN 

CODE (TIME_DELAY) 

51 

• 

* 


52 

; PUBLIC DECLARATION TABLE 

53 

• 

* 


54 

PUBLIC 

FAILED_SELFTEST 

55 

PUBLIC 

STACK 

56 

• 

» 


263 

$LIST 


264 

• 

» 


265 


* 

266 

CTI_BEGIN SEGMENT CODE 

267 

STACK_SEG ! 

SEGMENT IDATA 

268 

* 

* 


269 

RSEG 

STACK SEG 


0000 270 STACK: DS 020H ; 32 Byte Deep Stack 

271 
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DATE 


LOC OBJ LINE SOURCE 

272 $ EJECT 

273 ; 

274 ; POWER-ON RESET INTERRUPT VECTOR 

275 ; 

276 CSEG AT 0 

0000 020000 F 277 ljmp POWER_ON_RESET ; Power on reset vector 

278 ; 

279 ; PTR-800 CLOCK INPUT FOR DATA TRANSFERS 

280 ; 

0003 281 ORG 0003H 

0003 020000 F 282 ljmp CTPHONE_ACTIVE_ISR ;-INTO, PTR-800 Input 

xfer clock 

283 ; 

284 ; TIMER 0 TIMEOUT INTERRUPT FUNCTION 

285 ; 

000B 286 ORG 000BH 

000B 020000 F 287 ljmp CTI_TIMEOUT_ISR ; TO, CTI data xfers timeout 

function 

288 ; 

289 ; EXTERNAL INTERRUPT 1 

290 ; 

0013 291 . ORG 0013H ;-INTI, Unused 

0013 32 292 reti 

293 ; 

294 ; TIMER 1 INTERRUPT 

295 ; 

001B 296 ORG 001BH ;T1, Unused 

001B32 297 reti 

298 ; 

299 ; HOST SERIAL COMMUNICATIONS INTERRUPT VECTOR (RxD/TxD) 

300 ; ' 

0023 301 ORG 0023H ; Serial Receive/Xmit Interrupt 

0023 020000 F 302 ljmp HOST_XFER_ISR 

303 ; 

304 ; TIMER 2 (8052) INTERRUPT 

305 ; 

002B 306 ORG 002BH ; T2, Not Used (8052 ONLY) 

002B 32 307 reti 

308 
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LOC OBJ 

LINE 

SOURCE 



309 

310 ; 

SEJECT 

• 

0033 

311 

ORG 0033H 


— 

312 

RSEG CTI_BEGIN 



313 

314 . ; 

USING REG_BANK_00 



315 ; 

316 ; 

POWER-ON RESET ENTRY 


0000 

317 PO WER_ON_RESET: 



318 ; 




319 ; 

320 ; 

Configure the I/O ports PI & P3 


0000 7590E8 321 

mov PI, #11101000B 

; Configure port PI I/O 

0003 75B07F 322 

mov P3, #0111 111 IB 

; Configure port P3 I/O 


323 ; 




324 ; 

Assure the system is completely disabled 


325 ; 



0006 E4 

326 

clr a ; Clear ACC cuz we need a zero 

0007 F5A8 

327 

mov ie, a 

; Disable all interupts 

0009 F5D0 

328 

mov psw, a 

; Select Register bank zero 

000B F588 

329 

mov tcon, a 

; Disable all the 8031 timers 

000D 758100 F 330 

mov sp, #low STACK-1 ; Initialize the top of stack 


331 ; 

332 ; 

333 ; 

Test the 8031 registers after RESET 


0010 45F0 

334 

orl a, b ; 

Test B register 

0012 4582 

335 

orl a, dpi 

; Test DPL register 

0014 4583 

336 

orl a, dph 

; Test DPH register 

0016 45DO 

337 

orl a, psw 

; Test PSW register 

0018 4598 

338 

orl a, scon 

; Test SCON register 

001A458A 

339 

orl a, U0 

; Test TL0 register 

001C458C 

340 

orl a, thO 

; Test THO register 

001E 458B 

341 

orl a, til 

; Test TL1 register 

0020 45 8D 

342 

orl a, th 1 

; Test TH1 register 

0022 4588 

343 

orl a, tcon 

; Test TCON register 

0024 4589 

344 

orl a, tmod 

; Test TMOD register 

0026 6005 

345 

jz INTERNAL_RAM_TEST ; Continue The Selftest 


346 ; 



0028 7400 

347 

mov a, #M8031_FAULT 

; Failed micro selftest 

002A 020000 F 348 

Ijmp FA1LED_SELFTEST ; Failed Registers Test 


349 ; 

350 
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DATE 


LOC OBJ LINE SOURCE 



351 

$ EJECT 



352 ; 




353 ; 

Test the 8031 Internal RAM (All 128 Bytes) 


354 ; 



002D 

355 

INTERNAL JIAMJTEST: 


002D F8 

356 

mov r0, a 

; Internal Ram Start Address 

002E F4 

357 

cpl a 

; Start Pattern 0FFH 


358 ; 



002F 

359 

RAM_TEST00: 


002F F6 

360 

mov @r0, a 

; Move test pattern to address 

0030 04 

361 

inc a 

; Generate next test pattern 

003108 

362 

inc rO 

; Generate next RAM address 

0032 B880FA 363 cjne r0, #80H, RAM_TEST0O ; Repeat if not last address 


364 ; 


• 


365 ; 

Verify the test written data correctness 


366 ; 



0035 14 

367 

dec a 

; Restore the test pattern 

0036 18 

368 

dec rO 

; Restore last RAM address 


369 ; 



0037 

370 

RAM_TEST01: 


0037 66 

371 

xrl a, @r0 

; Compare the test data 

0038 6005 

372 

jz RAM_TEST02 

; Continue the RAM Test 


373 ; 



003A 7400 

374 

mov a, #M8031_FAULT ; Failed micro selftest 

003C 020000 F 375 ljmp FAILED_SELFTEST ; Failed Internal RAM Test 


376 ; 



003F 

377 

RAM_TEST02: 


003F 66 

378 

xrl a, @rO 

; Restore the test pattern 

0040 14 

379 

dec a 

; Generate the next test pattern 


0041 D8F4 380 djnz rO, RAM_TEST01 ; Check all 128 byte locations 

0043 B400E9 381 cjne a, #00H, RAM.TEST00 ; Test All Possible lest 

patterns 

382 ; 

383 
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DATE 


37 


LOC OBJ LINE SOURCE 

384 $EJECT 

385 ; 

386 ; Test the 8031 Register Banks 

387 ; 

0046 388 REGISTER_B ANK_TEST: 

0046 75F008 389 mov b, #08H ; Number of registers per bank 

390 ; 

0049 391 REGISTER_BANK00: 

0049 66 392 xrl a, @r0 ; Compare ACC with a register 

004 A 6005 393 jz REGISTER_BANK01 ; Continue the register bank 

test 


T | 

004C7400 395 mov a,#M8031_FAULT ; Failed micro selftest 

004E 020000 F 396 ljmp FAILED_SELFTEST ; Failed register bank test 

397 ; 


0051 

398 REGISTER_BANK01: 


0051 66 

399 

xrl a, @r0 

; Restore test pattern 

0052 04 

400 

inc a 

; Generate next test pattern 

0053 08 

401 

inc rO 

; Point to the next register 

0054 D5F0F2 402 

403 

djnz b, REGISTER. 

.BANKOO ; Check all 8 registers 

0057 F5F0 

404 

mov b, a 

; Save the test data pattern 

0059 E5D0 

405 

mov a, psw 

; Get the current PSW 

005B 2408 

406 

add a, #08H 

; Select the next register bank 

005D F5D0 

407 

mov psw, a 

; Restore the updated PSW 

005F E5F0 

408 

mov a, b 

; Restore the current test data 

0061 B420E2 

409 

cjne a, #20H, REGISTER_BANK_TEST 

0064 75D000 410 

411 ; 

mov psw, #00H 

; Reset the PSW 


412 
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DATE 


LOC OBJ LINE SOURCE 


413 


SEJECT 


- 

414 

* 

J 




415 

9 

* 

Test the 8031 timer registers 


. 416 

• 

f 




0067 417 TIMERS_TEST: 



0067 758CFF 

418 

mov 

thO, #0FFH 

; Setup the timer 0 for a count 

006A 758AF0 

419 

mov 

UO, #0F0H 

; of 16 machine cycles 

006D 758DFF 

420 

mov 

thl, #0FFH 

; Setup the timer 1 for a count 

0070 758BF0 

421 

mov 

til, #0F0H 

; of 16 machine cycles 

0073 758850 

422 

mov 

tcon, #50H 

; Enable both timers 

0076 D5E0FD 

423 

djnz 

ace, $ 

; Delay Loop, ACC = 20H 

0079 308D05 

424 

jnb 

tfO, FAILED.TIMERS. 

_TEST ; Failed Timer Test 

007C 308F02 

425 

jnb 

tfl, FAILED_TIMERS 

TEST * ; Failed Timer Test 

007F 8005 

426 

sjmp 

CLEAR_TIMERS 

; Clear timers & continue 

selftest 





427 

• 

> 




0081 428 FAILED.TIMERS. 

.TEST: 


0081 7400 

429 

mov 

a, #M8031_FAULT 

; Failed micro selftest 

0083 020000 F 

430 

ljmp 

FAILED_SELFTEST 

; Failed the processor 

selftest 





431 

9 

» 




0086 432 CLEAR_TIMERS: 



0086 E4 433 

clr a 

; Clear the accumulator 

0087 F5D0 

434 

mov 

psw, a 

; Reset the PSW 

.0089 F588 

435 

mov 

tcon, a ; 

Disable the timers 

008B F58C 

436 

mov 

thO, a ; 

Clear THO register 

008D F58A 

437 

mov 

tlO, a 

Clear TLO register 

008F F58D 

438 

mov 

thl, a ; 

Clear TH1 register 

0091 F58B 

439 

mov 

til, a ; Clear TL1 register 

0093 8000 

440 

sjmp 

CLEAN_UP_RAM 


441 

• 

f 




442 

• 

1 

Test the Firmware ROM Checksum 


443 

• 

t 




444 

• 

* 

lcall TEST_ROM_CHECKS UM 


445 

• 

* 

jc CLEAN_UP_RAM 


446 

• 




447 

• 

J 

mov a, #PROM_FAULT 

; Failed PROM Test 

448 

9 

1 

ljmp FAILED_SELFTEST 

; Failed the processor selftest 

449 







DATE 
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LOC OBJ LINE SOURCE 


0095 
0095 E4 
0096 F8 



SEJECT . . 

Clear the internal RAM. Thus the program begins with the RAM Initialize 
CLEAN_UP_RAM: 

clr a ; Clear ACC cuz we need a zero 

mov r0, a ; Clear R0 register 


0097 
0097 F6 
0098 08 
0099 B880FB 
009CF8 


457 ; 

458 

459 

460 
461 

462 


CLEAR_INTERNAL_RAM: 

mov @r0, a ; Clear RAM location 

inc rO ; Bump address pointer to next 

cjne rO, #80H, CLE AR_I NTERN AL_RAM 
mov rO, a ; Clear R0 register 


463 
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DATE 


LOC OBJ LINE SOURCE 

464 SEJECT 

465 : 


466 ; Setup the beginning state of the control register 

467 ; 


009D 75A880 

468 

mov 

ie, #10000000B 

; Set all interrupts flags 

00 A0 75B 802 
highest level 

469 

mov 

ip,#00000010B 

; Set timeout timer with the 

00A3 758DFD 
transmission 

470 

mov 

thl, #B AUD_9600 

; Setup for 9600 baud 

00A6 758BFD 
transmission 

471 

mov 

til, #BAUD_9600 

; Setup for 9600 baud 

00A9 758C00 

472 

mov 

thO, #00H ; 

Clear THO 

00AC 758A00 

473 

mov 

tlO, #00H ; 

Clear TLO 

00 AF 758700 
doubling 

474 

mov 

peon,#00000000B 

; Set SMOD for no baud 

00B2 759850 

475 

mov 

scon,#01010000B 

; Set serial control register 

00B5 758841 

476 

mov 

tcon, #01000001B 

; Set timer control to all bits off 

00B8 758921 

478 

477 

• 

mov 

(mod, #0010000IB 

; Select T1 Mode 2, TO Mode 1 

00BB C200 F 

479 

clr 

CTI_LED_1 ; 

; If phone ignore it 

00BD D200 F 

480 

setb 

CTI_LED_2 

; Flag the CTI is alive 

00BF C200 F 

482 

481 

• 

J 

clr 

CTI_PTR_EXPWR_ON 

; Assure the phone is off 

483 

484 

m 

y 

* 

y 

Go startup the CTI functions and begin the formal program 

00C1 020000 F 

485 

ljmp 

CTI_MAIN_FUN CTION 

; Go start that main 


program 

486 ; 

00C4 487 FAILED_SELFTEST: 

00C4 C2AF 488 clr ea ; Turn off global Interrupts 

00C6 120000 F 489 call FLASH_ERROR_LED_2 ; Show the error code on 

the LED 

00C9 80F9 490 sjmp FAILED_SELFTEST ; Crashed wait for a reset 


491 
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DATE 


37S 


LOC OBJ 


LINE SOURCE 


492 

SEJECT 

493 ; 

494 ;*< 


495 ; 

496 ; 

NAME: 

497 ; 

DESCRIPTION: 

498 ; 

CALL: 

499 ; 

ARGUMENTS: 

500 ; 

MODIFIES: 

501 ; 

RETURNS: 

502 ; 

503 ;*> 

HISTORY: 

504 ; 


00CB 505 FLASHJERROR_LED_2: 

506 ; 

00CB 120000 F 507 

lcall DISPLAY 

00CE 120000 F 508 

lcall DISPLAY. 

00D122 509 

ret 


510 
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DATE 


37 ? 



LOC OBJ LINE SOURCE 


511 

SEJECT 

512 

• 

t 

513 


514 ; 

NAME: 

515 


516 

DESCRIPTION: 

517 

CALL: 

518 

ARGUMENTS: 

519 

MODIFIES: 

520 

RETURNS: 

521 

HISTORY: 

522 

* 

523 

» 

t 


00D2 524 

DISPLAY_ONE_BIT: 


525 

00D2 D200 F 

• 

526 

setb 

CTI_LED_2 ; 

Turn on the activity LED 

527 

♦ 

9 




00D4 750005 F 

528 

mov 

DELAY_CTR_02, #005H 

; Setup Delay MSB 

00D7 750038 F 

529 

mov 

DEL A Y_CTR_01, #038H 

; Setpu Delay Middle 

byte 

00DA 120000 F 

530 

lcall 

TIME_DELAY 

; Delay for 562 milliseconds 

531 

00DD C200 F 

532 

cir 

CTI_LED_2 ; Turn off the activity LED 

533 

00DF 750002 F 

• 

j 

534 

mov 

DELAY_CTR_02, #002H 

; Setup Delay MSB 

00E2 750068 F 

535 

mov 

DELAY_CTR_01, #068H 

; Setpu Delay Middle 

byte 

00E5 120000 F 

536 

lcall 

TIME.DELAY 

; Delay for 188 milliseconds 

537 ; 

00E8 22 538 

539 

ret 
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DATE 


LOC OBJ 


00E9 


540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 
553 


LINE SOURCE 
SEJECT 


NAME: Display Zero Bit 

DESCRIPTION: 

CALL: 

ARGUMENTS: 

MODIFIES: 

RETURNS: 

HISTORY: 


DISPLAY ZERO BIT: 


554 

00E9 D200 F 

• 

555 

setb 

CTI_LED_2 ; Turn on the activity LED 

556 

00EB 750002 F 

• 

557 

mov 

DELAY_CTR_02, #002H 

; Setup Delay MSB 

00EE 750068 F 

558 

mov 

DEL A Y_CTR_01, #068H 

; Setpu Delay Middle 

byte 

00F1 120000 F 

559 

lcall 

TIME_DELAY 

; Delay for 188 milliseconds 

560 

00F4 C200 F 

» 

561 

clr 

CTI_LED_2 ; Turn off the activity LED 

562 

00F6 750005 F 

• 

563 

mov 

DELAY_CTR_02, #005H 

; Setup Delay MSB 

00F9 750038 F 

564 

mov 

DEL A Y_CTR_01, #038H 

; Setpu Delay Middle 

byte 

00FC 120000 F 

565 

lcall 

TIME_DELAY 

; Delay for 582 milliseconds 

566 ; 

00FF 22 567 

568 

569 

ret 

END 




; End of CTI_BEGN.A51 


REGISTER BANK(S) USED: 0 


380 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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DATE 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_CMDS.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_CMDS.A51 DEBUG ERRORPRINT(CTI_CMDSJ5RR) 
NOSYMBOLS NOXREF 

LOC OBJ LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_CMDS.A51) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_CMDS.A51 
Module Name : CTI_CMDS.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 4,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 


4c 4c 4c ♦ ♦ 4c $ 


MODULE HISTORY 


4c 4c 4c 4 s 4c ♦ 4c ♦ 
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DATE 


381 


LOC OBJ LINE SOURCE 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

289 

290 

291 

292 

293 

294 


SEJECT 

a 

t 

NAME CTI_COMMAND_PROCESSOR 

B 

) 

EXTERNAL REFERENCE TABLE 

B 

t 

EXTRN CODE (RECEIVE_HOST_DATA) 

EXTRN CODE (TRANSFER_HOST_DATA) 

EXTRN CODE (RECEI VE_PHONE_D AT A) 

EXTRN CODE (TRANSFER_PHONE_DATA) 

EXTRN CODE (DEC_HOST_XFER_COUNT) 

EXTRN CODE (CHECK_PHONE_STATUS) 

EXTRN CODE (SETUP_HOST_TIMEOUT) 

EXTRN CODE (SETUP_TPHONE_TIMEOUT) 
EXTRN CODE (TIMEJDELAY) 

EXTRN CODE (DELAY_350_MSECS) 

EXTRN CODE (DELAY_WRITE_RAM_FIRMWARE) 

B 

I 

PUBLIC DECLARATION TABLE 

B 

I 

PUBLIC CMD_READ_PTR_PHONE_NUMBER 
PUBLIC CMD_READ_PHONE_CALLS 
PUBLIC CMD_READ_PHONE_TIME 
PUBLIC CMD_WRITE_PHONE_TIME 
PUBLIC CMD_TURN_PHONE_OFF 
PUBLIC CMD_READ_PHONE_RTB_VER 
PUBLIC CMD_READ_NOVATEL_VER 
PUBLIC CMD_READ_CTI_VERSION 
PUBLIC CMD_TURN_POWER_ON 
PUBLIC CMD_LOCK_PHONE 
PUBLIC CMD_UNLOCK_PHONE 
PUBLIC CMD_READ_AIR_TIME_METER 
PUBLIC CMD_FAKE_POWER_DOWN 
PUBLIC CMD_READ_CALLS_COUNTER 
PUBLIC CMD_READ_CALLS_RAM_PTR 
PUBLIC CMD_WRITE_TELEMAC_FIRMWARE 
PUBLIC CMD_PHONE_IN_CRADDLE 
PUBLIC CMD_RESET_CALLS_POINTER 
PUBLIC CMD_RESET_CALLS_COUNTER 
PUBLIC CMD_RESET_AIR_TIME_METER 
PUBLIC CTI_FIRMWARE_REVISION 

$LIST 

» 

CTI_COMMANDS SEGMENT CODE 
RSEG CTI_COMMANDS 
USING REG BANK 00 
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DATE 


LOC OBJ LINE SOURCE 



295 

SEJECT 


296 

• 


297 



. 298 ; 

299 

NAME: 


300 

DESCRIPTION: 


301 

CALL: 


302 

ARGUMENTS: 


303 

MODIFIES: 


304 

RETURNS: 


305 

HISTORY: 


306 



307 

t 

0000 

308 

CMD_READ_PTR_PHONE_NUMBER: 

0000 

309 

CMD_READ_PHONE_TTME: 

0000 

310 

CMD_READ_PHONE_RTB_VER: 

0000 

311 

CMD_READ_NOVATEL_VER: 

0000 

312 

CMD_READ_AIR_TIME_METER: 

0000 

313 

CMD_READ_CALLS_COUNTER: 

0000 

314 

CMD READ CALLS RAM PTR: 


315 

* 

* 




0000 D200 F 

316 

setb 

CTI_HOST_CTS ; Flag host not ready for 

action!!! 

0002 120000 F 

317 

call 

CHECK_PHONE_STATUS 

; If the phone awake ??? 

0005 300021 F 

318 

jnb 

LIVE_PHONE_IN_CRADDLE, CMD_READ_PTR_EXIT 

0008 30001E F 

319 

jnb 

HOST_TURN_PHONE_ON, CMD_READ_PTR_EXIT 

320 

* 

- 



000B E500 F 

321 

mov 

a, HOST_CMD_REG 


000D120000 F 
command 

322 

call 

TRANSFER_PHONE_DATA 

; Xfer the CTPHONE 

0010 200016 F 

323 

jb 

PTR_XFER_T1MED0UT, CMD_READ_PTR_EXIT 

324 

• 

» 




0013 750000 F 

325 

mov 

PTR_CHECKSUM_REG, #00H 

; Clear CTPHONE 

data checksum register 




0016 AB00 F 

326 

mov 

r3, CTI_BUFFER_COUNT 

; CTPHONE # of return 

data bytes 

0018 7800 F 
buffer 

327 

mov 

rO, #low XFER_DATA_BUFFER 

; Address for the data 


328 ; 

329 ; Read the CTPHONE returned data 

330 ; 

001A 331 CMD_READ_PTR 11: 

001A 120000 F 332 call RECEIVE_PHONE_DATA ; A byte at a time 

001D 200009 F 333 jb PTR_XFER_TIMEDOUT, CMD_READ_PTR_EXIT 

334 ; 


0020 F6 335 

002108 336 

0022 6200 F 337 
as of old design 
0024 DBF4 338 

339 ; 

340 ; 

341 ; 

0026120000 F 342 


mov @r0, a ; If not timed out store byte 

inc rO ; Point to next storage location 

xrl PTR_CHECKSUM_REG, a ; Compute the checksum, 

djnz r3, CMD_READ_PTR 11 

Transfer the CTPHONE returned data to the host 

call TRAN S FER_HOST_D ATA 




0029 
0029 22 


384 

\y ■ 

344 CMD_READ_PTR_EXIT: 

345 ret 



38 ^ 
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LOC OBJ LINE SOURCE 


346 
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DATE 


38b 


LOC OBJ 


LINE SOURCE 



347 

SEJECT 


348 

■ 

j 


349 

• 

» 


350 

NAME: 


351 

» 


352 ; 

DESCRIPTION: 


353 

CALL: 


354 

ARGUMENTS: 


355 

MODIFIES: 


356 

RETURNS: 


357 

HISTORY: 


358 

*> 


359 


002A 

360 

CMD_LOCK_PHONE: 

002A 

361 

CMD_UNLOCK_PHONE: 

002A 

362 

CMD_RESET_CALLS_POINTER: 

002A 

363 

CMD_RESET_CALLS_COUNTER: 

002A 

364 

CMD_RESET_AIR_TIME_METER: 


365 , 

» 

002A D200 

F 366 setb CTI_HOST_CTS 

action!!! 




367 ; 

\ 


; Flag host not ready for 


002C 120000 F 368 
002F 300008 F 369 
0032 300005 F 370 

371 ; 

0035 E500 F 372 
0037 120000 F 373 

374 ; 

003A 
003A 22 


call CHECK_PHONE_STATUS 

jnb LIVE_PHONE_IN_CRADDLE, CMD_PTR_STATUS_EXIT 
jnb HOST_TURN_PHONE_ON, CMD_PTR_STATUS_EXIT 

mov a, HOST_CMD_REG 
call TRANSFER PHONE DATA 


375 CMD_PTR_STATUS_EXIT: 
376 ret 

377 





A51 MACROASSEMBLER CTI_CM 
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6 


LOC OBJ 

LINE 

SOURCE 

378 


SEJECT 

379 



380 

;*< 


381 


NAME: 

382 



383 

* * 

DESCRIPTION: 

384 


CALL: 

385 


ARGUMENTS: 

386 


MODIFIES: 

387 


RETURNS: 

388 


HISTORY: 

389 

;*> 


390 




DATE 


003B 


391 CMD WRITE PHONE TIME: 


392 

• 

» 



003B 120000 F 

393 

call 

RECEIVE_HOST_DATA 

394 

• 

> 


• 

003E 120000 F 

395 

call 

CHECK_PHONE_STATUS 

0041 300013 F 

396 

jnb 

LIVE_PHONE_IN_CRADDLE, 

CMD_WRITE_PHONE_TIME_EXIT 

l • 

0044 300010 F 

397 

jnb 

HOST_TURN_PHONE_ON, 

CMD_WRITE_PHONE_TIME_EXIT 


398 

■ 



0047 7809 

399 

mov 

rO, #09H ; Command 

0049 7900 F 

400 

mov 

rl, #low XFER_D AT A_B UFFER 

004B E500 F 

401 

mov 

a, HOST_CMD_REG 

402 

t 



004D 403 CMD_WRITE_PHONE_TIME00: 

004D 120000 F 

404 

call 

TRANSFER_PHONE_DATA 

0050 200004 F 

405 

jb 

PTR_XFER_TIMEDOUT, 


; Receive PTR host data 


; Xfer buffer pointer 


CMD WRITE PHONE TIME EXIT 


0053 E7 
0054 09 
0055 D8F6 

0057 
0057 22 


406 

407 
408 


a, @rl 


mov 
inc rl 

djnz rO, CMD_WRITE_PHONE_TIME00 


409 ; 

410 CMD_WRITE_PHONE_TIME_EXIT: 
411 ret 

412 


397 
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DATE 


LOC OBJ LINE SOURCE 



413 

SEJECT 


414 ; 

415 ;*< 

• 

‘ 

416 ; 

417 ; 

NAME: 


418 ; 

DESCRIPTION: 


419 ; 

CALL: 


420 ; 

ARGUMENTS: 


421 ; 

MODIFIES: 


422 ; 

RETURNS: 


423 ; 

424 ;*> 

425 ; 

HISTORY: 

0058 

426 CMD_READ_PHONE_C ALLS: 


427 ; 

•< 

0058 D200 

F 428 

setb HOST_XFER_ENABLED 

005A 120000 F 429 

call SETUP_HOST_TIMEOUT 

005D D200 

F 430 

setb HOST_CMD_PARAM_XFER • 

005F D2A9 

431 

setb XFER TIMEOUT INTERRUPT 


; Flag wait for params 


432 


0061 433 CMD_READ_CALLS00: 


0061 20006B F 

434 

jb 

H0ST_XFER_T1MED0UT, CMD_READ_CALLS_EXIT 

0064 2000FA F 

435 

jb 

HOST_CMD_PARAM_XFER, CMD_RE AD_C ALLS 00 

436 

• 

J 




0067 C2A9 

437 

clr 

XFER_TIMEOUT_INTERRUPT 


0069 C200 F 

438 

clr 

HOST_CMD_PARAM_XFER 

; Got those params 

006B C200 F 

439 

clr 

HOST_XFER_TIMEDOUT 

; Clear host timed out 

flag 

006D C200 F 

440 

clr 

HOST_XFER_ENABLED 


006F C28C 

441 

clr 

START_CTI_TIMEOUT 


442 

• 




0071 120000. F 

443 

call 

CHECK_PHONE_STATUS 

; If the phone awake ??? 

0074 300058 F 

A A A 

Iff 

jnb 

LIVE_PHONE_IN_CRADDLE, 


CMD_READ_CALLS_EXIT 




0077 300055 F 

445 

jnb 

HOST_TURN_PHONE_ON, CMD_READ_CALLS_EXIT 

446 

• 

> 




007A850000 F 

447 

mov HOST_XFER_COUNT, HOS T_C MD_D AT A_C NT 

007D 850000 F 

1 

0080 E500 F 

448 

mov HOST_XFER_COUNT + 1, HOST_CMD_DATA_CNT + 

449 

mov 

a, HOST_XFER_COUNT 

; Get LSB 

0082 4500 F 

450 

orl 

a, HOST_XFER_COUNT + 1 

; Or MSB 

0084 6049 

451 

J z 

CMD_READ_CALLS_EXIT 

; If zero xfer complete 

452 

• 

» 




0086 1500 F 

453 

dec 

HOST_XFER_COUNT 

; Substract the so called 

LRC 



* 


0088 C200 F 

454 

clr 

HOST_XFER_COMPLETE 



008A 750000 F 455 
data checksum register 
008D 750001 F 456 

457 ; 

458 : 


mov PTR_CHECKSUM_REG, #00H 
mov CTI_BUFFER_COUNT, #01H 
Issue the CTPHONE read command 


; Clear CTPHONE 
; For multi-block xfers 


459 ; 

0090 460 CMD_READ_C ALLS 11: 

0090 E500 F 461 mov a, HOST_CMD_REG 




389 


0092 120000 F 462 call TRANSFER_PHONE_DATA 

command 

0095 200037 F 463 


; Xfer the CTPHONE 


jb PTR_XFER_TIMEDOUT, CMD_READ_CALLS_EXIT 
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LOC OBJ LINE SOURCE 


390 


r 


DATE 


464 ; 

465 ; Read the CTPHONE returned data 

466 ; 

0098 467 CMD_READ_C ALLS 22: , 

0098 120000 F 468 call RECEIVE_PHONE_DATA ; A byte at a time t 

009B 200031 F 469 jb PTR_XFER_TIMEDOUT, CMD_READ_CALLS_EXIT 

470 ; ! 

009E 6200 F 471 xrl PTR_CHECKSUM_REG, a ; Compute the checksum, 

as of old design 


473 ; Transfer the CTPHONE returned data to the host 

474 ; 


00A0 C298 

475 

clr HOST_RXD 

; Clear receive flag 

00A2 C299 

476 

clr HOST_TXD 

; Clear transmit flag 

00A4 F599 

477 

mov HOST_DATA, a 

; Write that phone data byte to 

the host 





478 ; 

00A6 120000 F 479 call DEC_HOST_XFER_COUNT ; Account for the 

xfered byte 


00A9 3000EC F 

480 

jnb HOST_XFER_COMPLETE, CMD_READ_CALLS 22 


481 

* 

1 



482 

9 

7 

Time out for last byte xfer before so called LRC 


483 

9 

7 


00AC D200 

F 

484 

setb PTR_XFER_ENABLED ; Use the phone timer 

setup 

00AE 7D33 


485 

mov r5, #033H 

00B0 7DF5 


486 

mov r5, #0F5H 

00B2 120000 F 

487 

call SETUP_TPHONE_TIMEOUT 

00B5 D2A9 


488 

setb XFER_TIMEOUT_INTERRUPT 


489 

• 

7 


00B7 

490 CMD_READ_CALLS33: 

00B7 3000FD F 

491 

jnb PTR_XFER_TIMEDOUT, CMD_READ_CALLS33 

OOBA C2A9 


492 

clr XFER_TIMEOUT_INTERRUPT 

OOBC C200 

F 

493 

clr PTR_XFER_TIMEDOUT 

OOBE C200 

F 

494 

clr PTR_XFER_EN AB LED 


495 

• 

7 



496 

« 

1 

Transfer the so called LRC????? 


497 

9 

7 


OOCO 

498 CMD_READ_CALLS44: 

OOCO 850000 F 

499 

mov XFER_DATA_BUFFER, PTR_CHECKSUM_REG 

00C3 750001 F 

500 

mov CTI_B UFFER_COU NT, #01H 

00C6 750001 F 

501 

mov HOST_XFER_COUNT, #01H ;SetLSB 

00C9 750000 F 

502 

MOV HOST_DAT A_PTR, #low XFER_DATA_BUFFER 


503 

9 

7 


OOCC 120000 F 

504 

call TRANSFER_HOST_DATA ; Send the LRC??? 


505 

9 

f 


OOCF 

506 CMD_READ_CALLS_EXIT: 

OOCF D200 

F 

507 

setb CTI_HOST_CTS ; Flag host not ready for 

action!!! 
00D1 C200 

F 

508 

clr HOST_XFER_ENABLED 

00D3 C2A9 


509 

clr XFER_TIMEOUT_INTERRUPT 

00D5 C28C 


510 

clr S T ART_CTI_TIMEOUT 

00D7 22 


511 

ret 


512 




29/ 


1 


A51 MACRO ASSEMBLER CTI CMDS.A51 


DATE 


27/09/91 PAGE 

9 


■. 

LOC OBJ 

LINE 

SOURCE 

. 

513 


$EJECT 


514 

t 


• 

515 

;*< 



516 

» 

NAME: 


517 

» 



518 

» 

DESCRIPTION: 

' 

519 

» 

CALL: 


520 


ARGUMENTS: 


521 

» 

MODIFIES: 


522 

» 

RETURNS: 


523 

• 

HISTORY: 


524 

;*> 



525 

» 

* 



00D8 526 CMD_WRITE_TELEMAC_FIRMWARE: 

527 

• 

* 



00D8 120000 F 

528 

call 

SETUP_HOST_TIMEOUT 

00DB D200 F 

529 

setb 

HOST_CMD_PARAM_XFER ; Flag wait for params 

00DD D2A9 

530 

setb 

XFER_TIMEOUT_INTERRUPT 

531 

• 

1 



OODF 532 CMD_WRITE_FIRMW AREOO: 

OODF 200042 F 

533 

jb 

HOST_XFER_TIMEDOUT, 

CMD_WRITE_FIRMW ARE_EXJT 


00E2 2000FA F 

534 

jb 

HOST_CMD_PARAM_XFER, 

CMD_WRITE_FIRMW AREOO 

* 

535 

• 



00E5 C2A9 

536 

clr 

XFER_TIMEOUT_INTERRUPT 

00E7 C200 F 

537 

clr 

HOST_CMD_PARAM_XFER ; Got those params 

00E9 C200 F 

538 

clr 

HOST_XFER_TIMEDOUT ; Clear host timed out 

flag 




OOEB C200 F 

539 

clr 

HOST_XFER_EN AB LED 

OOED D200 F 

540 

setb 

CTI_HOST_CTS ; Flag host not ready for 

action!!! 




541 

• 

» 



OOEF 120000 F 

542 

call 

CHECK_PHONE_STATUS ; If the phone awake ??? 

00F2 30002F F 

'■ 543 

jnb 

LI VEJPHONEJ N_CRADDLE, 

CMD_WRITE_FIRMWARE_EXIT 


00F5 30002C F 

544 

jnb 

HOST_TURN_PHONE_ON, 

CMD_WRITE_FIRMW ARE_EXIT 


545 

9 

1 



00F8 C200 F 

546 

clr 

HOST_XFER_COMPLETE ; Flag beginning xfers 

OOFA 850000 F 

547 

mov 

HOST_XFER_COUNT, HOST_CMD_D AT A_CNT 

OOFD 850000 F 

1 

548 

mov 

HOST_XFER_COUNT + 1, HOST_CMD_DATA_CNT + 

1 

0100 E500 F 

549 

mov 

a, HOST_XFER_COUNT ; Get LSB 

0102 4500 F 

550 

orl 

a, HOST_XFER_COUNT +1 ; Or MSB 

0104 601E 

551 

jz CMD_WRITE_FIRMWARE_EXIT ; If zero xfer 

complete 




552 

9 

» 



553 

■ 

Issue the CTPHONE write firmware command 

554 

* 

» 



0106 E500 F 

555 

mov 

a, HOST_CMD_REG 

0108 120000 F 

556 

call 

TRANSFER_PHONE_DATA ; Xfer the CTPHONE 


command 


391 


010B 200016 F 557 jb PTR_XFER_TIMEDOUT, 

CMD_WRITE_FIRMW ARE_EXIT 

558 ; 

010E 559 CMD_WRITE_F1RMWARE11: 

560 ; 

561 ; Write those CTPHONE firmware bytes 

562 ; 

010E 563 CMD WRITE FIRMWARE22: 



A51 MACRO ASSEMBLER CTI_CMDS.A51 
27/09/91 PAGE 10 


LOC OBJ LINE SOURCE 


010E 750001 
xfers 

F 

564 

mov 

CTI_B UFFER_COUNT, #01H 

0111 120000 
byte 

F 

565 

call 

RECEIVE_HOST_DATA 

0114 20000D F 566 
CMD_WRITE_FIRMWARE_EXIT 

567 ; 

jb 

HOST_XFER_TIMEDOUT, 

0117E500 

F 

568 

mov 

a, XFER_DATA_BUFFER 

0119 120000 
data 

F 

569 

call 

TRANSFER_PHONE_DATA 

011C 200005 

F 

570 

jb 

PTR_XFER_TlMEDOUT, 


CMD_WRITE_FIRMWARE_EXIT 

571 ; 

01 IF 200002 F 572 jb HOST_XFER_COMPLETE, 

CMD_WRITE_FIRMWARE_EXIT 

0122 80EA 573 jmp CMD_WRITE_FIRMWARE11 

574 ; 

0124 575 CMD_WRITE_FIRM WARE_EXIT: 

0124 22 576 ret 

577 


.DATE 


; Single byte for long 
; Get another firmware 


; Xfer the CTPHONE 
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DATE 


LOC OBJ 


0125 

0125 750001 
0128 E500 
012A 4500’ 
012C 7002 
complete 

012E D200 

0130 
0130 22 



LINE SOURCE 


578 

SEJECT 

579 

i 

t 

580 

t ' 

581 ; 

NAME: 

582 


583 

DESCRIPTION: 

584 

CALL: 

585 

ARGUMENTS: 

586 

MODIFIES: 

587 

RETURNS: 

588 

HISTORY: 

589 

*> 

590 

* 

9 


591 

592 

F 

F 

F 


UPDATE HOST XFER STATUS: 


593 

594 

595 
596 


mov CTI_BUFFER_COUNT,#01H ; For multi-block xfers 
mov a, HOST_XFER_COUNT ; Get LSB 

orl a, HOST_XFER_COUNT +1 ; Or MSB 

jnz UPDATE_HOST_XFER_STATUS_EXIT ; If zero xfer 


setb HOST XFER COMPLETE 


597 ; 

F 598 
599 ; 

600 UPDATE_HOST_XFER_STATUS_EXIT: 
601 ret 

602 




395 " 


A51 MACRO ASSEMBLER CTI_CMDS.A51 DATE 

27/09/91 PAGE 12 


LOC OBJ 

LINE 

SOURCE 

■ 

603 


SEJECT 


604 

605 

;*< 


* 

606 

607 

» 

NAME:- 


608 

*» 

DESCRIPTION: 


609 

» 

CALL: 


610 

» 

ARGUMENTS: 


611 

j 

MODIFIES: 


612 

» 

RETURNS: 


613 

614 

;*> 

HISTORY: 


615 

* 

y 



0131 616 CMD_PHONE_IN_CRADDLE: 

617 

• 

* 


* ■ 

0131 120000 F 

618 

call 

CHECK_PHONE_STATUS 

619 

* 

» 



0134 A200 F 

620 

mov 

c, LI VE_PHONE_IN_CRADDLE 

0136 9200 F 

622 

621 

• 

y 

mov 

CTI_ACTIVE_CTPHONE, c 

0138 850000 F 

623 

mov 

HOST_XFER_COUNT, CTI_BUFFER_COUNT 

013B 750000 F 

624 

mov 

HOST_XFER_COUNT + 1, #00H 

013E850000 F 

626 

625 

* 

mov 

XFER_DATA_BUFFER, HOST_CTI_STATUS 

0141 120000 F 

628 

627 

• 

call 

TRANSFER_HOST_DATA 


629 


630 


0144 22 


ret 


A51 MACRO ASSEMBLER CTI_CMDS.A51 
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DATE 


LOC OBJ LINE SOURCE 


631 

632 

» 

SEJECT 

633 

;*< 


634 

635 

> 

» 

NAME: 

636 

» 

DESCRIPTION: 

637 

» 

CALL: 

638 

» 

ARGUMENTS: 

639 

» 

MODIFIES: 

640 

» 

RETURNS: 

641 

* 

HISTORY: 

642 

;*> 


643 

1 



0145 644 CMD_FAKE_POWER_DOWN: 

645 ; 

0145 D200 F 646 setb CTI_HOST_CTS ; Flag host not ready for 

action!!! 

0147 C2A8 647 clr PTR_800_INTERRUPT ; Turn off the phone interrupt 

648 ; 

0149 E500 F 649 mov a, HOST_CMD_REG 

014B 120000 F 650 call TRANSFER_PHONE_DATA 

014E 200003 F 651 jb PTR_XFER_TIMEDOUT, 

CMD_FAKE_POWER_DOWN_EXIT 

652 ; 

0151 120000 F 653 call DELAY_350_MSECS ; Wait for 231 msecs 

654 ; 

0154 655 CMD_FAKE_POWER_DOWN_EXlT: 

0154 020000 F 656 ljmp CMD_TURN_PHONE_OFF 

657 ; 

0157 22 658 ret 

659 
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397 


DATE 


LOC OBJ LINE SOURCE 


660 


SEJECT 

661 

* 

* 


662 

;*< 


663 

a 

» 

NAME: 

664 

• 

* 


665 

a 

* 1 

DESCRIPTION: 

666 

a 

1 

CALL: 

667 

a 

J 

ARGUMENTS: 

668 

a 

1 

MODIFIES: 

669 

* 

1 

RETURNS: 

670 

a 

* 

HISTORY: 

671 

;*> 


672 

a 

* 



0158 673 CMD_TURN_PHONE_OFF: 

674 ; 


0158 D200 

F 

675 

setb 

CTI_HOST_CTS 

; Flag host not ready for 

action!!! 
015A C200 

F 

676 

clr 

CTI_PTR_EXPWR_ON 

; Turn of the phone 

015C C200 

F 

677 

clr 

HOST_TURN_PHONE_ON 


015E C200 

F 

678 

clr 

CTI_TURN_OFF_PHONE 


0160 C200 

F 

679 

clr 

CTI_LED_1 


0162 120000 

680 

F 

a 

681 

call 

DELAY_350_MSECS 

; Wait for -350 msecs 

0165 120000 

F 

682 

call 

DELAY_350_MSECS 

; Wait for -350 msecs 

0168 120000 

F 

683 

call 

DELAY_350_MSECS 

; Wait for -350 msecs 

016B 22 

684 

a 

685 

ret 




686 




358 
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LOC OBJ LINE SOURCE 

* 


687 

688 
689 

;*< 

$EJECT 


690 

691 

» 

» 

NAME: 


692 


DESCRIPTION: 


693 

> 

CALL: 


694 

* 

ARGUMENTS: 


695 


MODIFIES: 


696 

» 

RETURNS: 


697 

698 

699 

» 

;*> 

i 

HISTORY: 


016C 700 CMD_TURN_POWER_ON: 

701 ; 

016C D200 F 
action!!! 

702 

setb 

CTI_HOST_CTS 

016E D200 F 

703 

setb 

HOST_TURN_PHONE_ON 

0170 C200 F 

704 

clr 

CTI_TURN_OFF_PHONE 

0172 D200 F 

705 

setb 

CTI_PTR_EXPWR_ON 

0174 D200 F 

707 

706 

a 

» 

setb 

CTI_LED_1 

0176 120000 F 

708 

call 

DELAY_350_MSECS 

0179 120000 F 

709 

call 

DELAY_350_MSECS 

017C 120000 F 

710 

call 

DELA Y_350_MS ECS 

711 

• 

» 



017F 712 CMD_TURN_PO WER_ON_EXIT: 

017F 22 713 

714 

ret 



DATE 


; Flag host not ready for 


; Turn on the phone 


; Wait for -350 msecs 
; Wait for -350 msecs 
; Wait for -350 msecs 





399 
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LOC OBJ LINE SOURCE 


715 

716 ; 

$EJECT 

ft 

> 

717 ; 

> 

718 ; 

719 ; 

; NAME: 

i 

720 ; 

DESCRIPTION: 

721 ; 

; CALL: 

722 ; 

ARGUMENTS: 

723 ; 

MODIFIES: 

724 ; 

; RETURNS: 

725 ; 

; HISTORY: 

726 ; 

727 : 

> !(t^ 
t m ** 

» 

1 


0180 728 CMD_RE AD_CTI_VERS ION: 


0180 D200 

729 ; 

F 730 

setb 

CTI_HOST_CTS ; Flag host not ready for 

action!!! 

0182 758300 

F 731 

mov 

dph, #high CTI_FIRMWARE_REVISION 

0185 758200 

F 732 

mov 

dpi, #low CTI_FIRMWARE_REVISION 

0188 850000 

F 733 

mov 

HOST_XFER_COUNT, CTI_BUFFER_COUNT 

018B 750000 

i F 734 

mov 

HOST_XFER_COUNT + 1, #00H 

018E A800 

735 ; 

F 736 

mov 

rO, CTI_BUFFER_COUNT 

0190 7900 

F . 737 

mov 

rl, #low XFER_DATA_BUFFER ; Xfer buffer pointer 

0192 7A00 

738 

mov 

r2, #00H 

0194 

739 ; 

740. CMD. 

READ_CTI_ 

.VERSION00: 

0194 EA 

741 ; 

742 

mov 

a, r2 ; Current xfer byte 

0195 93 

743 

move 

a, @a+dptr 

0196 F7 

744 

mov 

@rl,a 

0197 0A 

745 

inc r2 

0198 09 

746 

inc rl 

0199 D8F9 

747 

djnz 

rO, CMD_READ_CTI_VERSION00 

019B 12000C 

748 ; 

1 F 749 

call 

TRANSFERJHOSTJDATA 

019E22 

750 ; 

751 

ret 



752 
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4DO 

DATE 


LOC OBJ LINE SOURCE 


753 

754 

$EJECT 

• 

) 

755 


756 ; 

757 

NAME: 

• 

758 ; 

DESCRIPTION: 

759 ; 

CALL: 

760 

ARGUMENTS: 

761 

MODIFIES: 

762 

RETURNS: 

763 

HISTORY: 

764 

765 

766 

i. x 

ft 

ft 

1 


019F 767 CTI_FIRM W ARE_RE VIS ION: 

768 ; 

019F 43544920 769 DB 'CTIVER.: 1.0 AUG-20-1991' 

01 A3 5645522E 

01A7 3A312E30 

01AB 20204155 

01AF472D3230 

01B3 2D313939 

01B7 31 

770 

771 END 

; End of CTI_CMDS.A51 


REGISTER BANK(S) USED: 0 

ASSEMBLY COMPLETE, NO ERRORS FOUND 



4<>l 

A51 MACRO ASSEMBLER CTI_CNST DATE 27/09/91 

PAGE 1 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_CNST.OBJ 
ASSEMBLER INVOKED BY: A51 CTI CNST.INC 


LOC OBJ LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_CNST.INC) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_CNST.INC 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 2,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 

PROGRAM DESCRIPTION 

REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 

******** MODULE HISTORY **** 


; ii ii ii ii it ti ii mmmm ii ii ii ii ii ii ii ii it ii ii ii ini ii ii ii ii ii ii it ii itiiff ti ii ii ii ii ii ii ii ii tt it ii ii ii ii ii ii ii ii it mil ii ii ii it ii ii ii ii ii m# 

37 







yol 
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DATE 27/09/91 


LOC OBJ 


LINE SOURCE 


38 

39 

40 

41 


$ EJECT 


Register Banks Identification Constants 


0000 

42 

REG_BANK_00 

EQU 

00H 

; BANK 0 SELECT 

0001 

43 

REG_BANK_01 

EQU 

01H 

; BANK 1 SELECT 

0002 

44 

REG_BANK_02 

EQU 

02H 

; BANK 2 SELECT 

0003 

45 

46 ; 

REG_BANK_03 

EQU 

03H 

; BANK 3 SELECT 

0000 

47 

48 ; 

49 ; 

50 ; 

REGIS TER_00 EQU 00H 

CTI Internal Test Error Equates 

; RO direct address 

0000 

51 

M8031_FAULT 

EQU 

00H 


0001 

52 

PROM_FAULT 

EQU 

01H 



53 

54 

REGISTER, IE) 


INTERRUPT ENABLE/DISABLE EQUATES (INTERRUPT ENABLE 



55 ; 

00A8 

56 

00A9 

57 

OOAC 

58 

OOAF 

59 


60 ; 


61 ; 


62 ; 

0098 

63 

0099 

64 

0099 

65 

F4C0 

66 


PTR_800_INTERRUPT EQU EXO 
XFER_TIMEOUT_INTERRUPT EQU ETO 
HOST_COMM_INTERRUPT EQU ES 
EN AB LE_ ALL_I NTERRUPT EQU EA 

INTERRUPT EQUATES (TIMER/COUNTER CONTROL REGISTER, TCON) 


HOST_RXD EQU RI 

HOST_TXD EQU TI 

HOST.DATA EQU SBUF 

HOST_TIMEOUT_CNT EQU 0F4C0H 


BYTE 

DC00 

EE00 

EXCLK TO 
0023 
008C 

00FD 

00FA 

0038 


67 


68 

69 


70 

71 


72 


73 

74 

75 


PTR_TIMEOUT_CNT EQU 0DC00H 
PTR_EXCLK_TIMEOUT_CNT EQU 0EE00H 

PTRJEXCLKJDEBOUNCE EQU 023H 
START_CTI_TIMEOUT EQU TR0 

BAUD_9600 EQU 0FDH 

BAUD_4800 EQU 0FAH 

MAX_B UFFER_S IZE EQU 038H 


; 3.125 msecs per 


; PTR xfer lOmsecs TO 
; PTR 5msecs 

; Debounce pulse count 


76 


• ■ 
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DATE 27/09/91 


LOC OBJ LINE SOURCE 

77 $ EJECT . .. 

78 ; 

79 ; Host to CTI Command Equates 

80 ; 

0000 81 CTI_RD_PHONE_NUMBER EQU 000H 

0001 82 CTI_RD_PHONE_CALLS EQU 001H 

0002 83 CTI_RD_PHONE_TIME EQU 002H 

0003 84 CTI_WR_PHONE_TIME EQU 003H 

0004 85 CTI_TBD_04 EQU 004H 

0005 86 CTI_TURN_PHONE_OFF EQU 005H 

0006 87 CTI_RD_PHONE_RTB_VER EQU 006H 

0007 88 . CTI_RD_NOVATEL_VER EQU 007H 

0008 89 CTI_RD_MBC_VERSION EQU 008H 

0009 90 CTI_TURN_POWER_ON EQU 009H 

000A 91 CTI_LOC K_PHONE EQU 00AH 

000B 92 CTI_U NLOCK_PHONE EQU. 00BH 

000C 93 CTI_TBD_12 EQU 00CH 

000D 94 CTI_RD_AIR_TIME_METER EQU OODH 

000E 95 CTI_FAKE_POWER_DOWN EQU OOEH 

000F 96 CTI_RD_CALLS_COUNTER EQU OOFH 

0010 97 CTI_RD_CALLS_RAM_PTR EQU 010H 

0011 98 CTI_WR_TELEMAC_FIRMWARE EQU 011H 

0012 99 CTI_PHONE_IN_CRADDLE EQU 012H 

0013 100 CTI_RESET_CALLS_POINTER EQU 013H 

0014 101 CTI_RESET_CALLS_COUNTER EQU 014H 

0015 102 CTI_RESET_AIR_TIME_METER EQU 015H 

0016 103 CTI_MAX_COMMAND_COUNT EQU CTI_RESET_AIR_TIME_METER 

1 

104 ; 

105 ; End of CTI_CNST.INC 

106 ; 

107 


t 


DATE 27/09/91 


A51 MACRO ASSEMBLER CTI_CNST 
PAGE 4 


SYMBOL TABLE LISTING 


NAME TYPE VALUE ATTRIBUTES 

BAUD_4800.N NUMB 00FAH A 

BAUD_9600.N NUMB OOFDH A 


CTI_FAKE_POWER_DOWN... N NUMB 000EH A 

CTI_LOCK_PHONE.N NUMB OOOAH A 

CTI_MAX_COMMAND_COUNT.. N NUMB 0016H A 
CTI_PHONE_IN_CRADDLE.. N NUMB 0012H A 
CTI_RD_AIR_TIME_METER.. N NUMB 000DH A 
CTI_RD_CALLS_COUNTER.. N NUMB 000FH A 
CTI_RD_CALLS_RAM_PTR.. N NUMB 0010H A 
CTI_RD_MBC_VERSION ... N NUMB 0008H A 
CTI_RD_NOVATEL_VER... N NUMB 0007H A 
CTI_RD_PHONE_CALLS ... N NUMB 0001H A 
CTI_RD_PHONE_NUMBER... N NUMB 0000H A 
CTI_RD_PHONE_RTB_VER.. N NUMB 0006H A 
CTI_RD_PHONE_TIME.... N NUMB 0002H A 
CTI_RESET_AIR_TIME_METER N NUMB 0015H A 
CTI_RESET_CALLS_COUNTER. N NUMB 0014H A 
CTI_RESET_CALLS_POINTER. N NUMB 0013H A 


CTI_TBD_04.N NUMB 0004H A 

CTI_TBD_12.N NUMB 000CH A 


CTI_TURN_PHONE_OFF... NNUMB 0005H A 

CTI_TURN_POWER_ON_NNUMB 0009H A 

CTI_UNLOCK_PHONE .... N NUMB 000BH A 
CTI_WR_PHONE_TIME.... N NUMB 0003H A 
CTI_WR_TELEMAC_FIRMWARE. NNUMB 0011H A 

EA.BADDR 00A8H.7 A 

ENABLE_ALL_INTERRUPT .. B ADDR OOA8H.7 A 

ES.BADDR 00A8H.4 A 

ETO.B ADDR 00A8H.1 A 

EXO.BADDR 00A8H.0A 

HOST_COMM_INTERRUPT... B ADDR 00A8H.4 A 

HOSTJDATA.D ADDR 0099H A 

HOST_RXD.BADDR 0098H.0A 

HOST_TIMEOUT_CNT.... N NUMB F4C0H A 

HOSTTXD.B ADDR 0098H.1 A 

M8031_FAULT.NNUMB 0000H A 

MAX_BUFFER_SIZE.NNUMB 0038H A 

PROM_FAULT.NNUMB 0001H A 

PTR_800_INTERRUPT.... B ADDR 00A8H.0 A 
PTR_EXCLK_DEBOUNCE... N NUMB 0023H A 
PTR_EXCLK_TIMEOUT_CNT.. NNUMB EEOOH A 

PTR_TIMEOUT_CNT.NNUMB DCOOH A 

REGISTER_00.NNUMB 0000H A 

REG_BANK_00.NNUMB 0000H A 

REG_BANK_01.NNUMB 0001H A 

REG_BANK_02.NNUMB 0002H A 

REG_BANK_03.NNUMB 0003H A 

RI.B ADDR 0098H.0 A 

SBUF.D ADDR 0099H A 

START CTI TIMEOUT.... B ADDR 0088H.4 A 



























■ TI...BADDR 0098H.1 A 

TRO.B ADDR 0088H.4 A 

XFER_TIMEOUT_INTERRUPT. BADDR 00A8H.1 A 


405 


REGISTER BANK(S) USED: 0 

ASSEMBLY COMPLETE, NO ERRORS FOUND 




DATE 


40 b 


* 


A51 MACRO ASSEMBLER CTI_GLBL.A51 

27/09/91 PAGE 1 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_GLBL.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_GLBL.A51 DEBUG ERRORPRINT(CTI_GLBL.ERR) 
NOSYMBOLS NOXREF 


LOC OBJ 


LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SPAGEWIDTH (127) 
SPAGELENGTH (57) 


STITLE 


(CTI_GLBL.A51) 


Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_GLBL.A51 
Module Name : CTI_GLBL.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 3,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 


:fc3fc3|c:|r3fc:fc3fe:tc 


MODULE HISTORY 




; ll IIIIIIIIIIIIIIIIII M MMXM MmumitMH tttltUI It mtlMI It IIII It II It till IIIIIIIIII III! IIIIIIII li IIIIIIII il IIIIII it littlM M 

38 




DATE 


407 


A51 MACRO ASSEMBLER 
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CTI GLBL.A51 


LOC OBJ LINE SOURCE 


39 

40 


» 


41 


42 

43 

44 

45 

46 


i 


> 




47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 


SEJECT 

NAME CTI_GLOBAL_VARIABLES 

PUBLIC DECLARATION TABLE 

PUBLIC CTI_HOST_RTS 
PUBLIC CTI_HOST_CTS 
PUBLIC CTI_PTR_RXD 
PUBLIC CTI_PTR_EXPWR_ON 
PUBLIC CTI_PTR_TXD 
PUBLIC CTI_LED_1 

PUBLIC CTI_LED_2 
PUBLIC CTI_PTR_EXCLK 
PUBLIC CTI_HOST_TXD 
PUBLIC CTI_HOST_RXD 

PUBLIC DELAY_CTR_02 
PUBLIC DELAY_CTR_01 
PUBLIC DELAY_CTR_00 

PUBLIC HOST_CMD_REG 
PUBLIC HOST_CMD_DATA_CNT 
PUBLIC HOST_DATA_PTR 
PUBLIC HOST_XFER_COUNT 
PUBLIC CTI_BUFFER_COUNT 
PUBLIC PTR_BIT_COUNT 
PUBLIC PTR_PULSE_COUNT 
PUBLIC PTR_CHECKSUM_REG 

PUBLIC CTI_STATUS 
PUBLIC CTI_TURN_OFF_PHONE 
PUBLIC LIVE_PHONE_IN_CRADDLE 
PUBLIC HOST_TURN_PHONE_ON 
PUBLIC XFER_BUFFERJFULL 
PUBLIC HOSTCOMMAND 

PUBLIC HOST_CTI_STATUS 
PUBLIC CTI_CTPHONE_TIMEDOUT 
PUBLIC CTI_HOST_TIMEDOUT 
PUBLIC CTI_ACTIVE_CTPHONE 

PUBLIC HOST_XFER_STATUS 
PUBLIC HOST_CMD_PARAM_XFER 
PUBLIC HOST_XFER_COMPLETE 
PUBLIC HOST_XFER_TIMEDOUT 
PUBLIC HOST_XFER_ENABLED 

PUBLIC PTR_XFER_STATUS 
PUBLIC PTR_EDGE_DETECTED 
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DATE 


LOC OBJ LINE SOURCE 


90 

91 

92 

93 

94 

95 

96 
206 
207 


PUBLIC PTR_ONLINE_CHECK 
PUBLIC PTR_DATA_TRANSMITTED 
PUBLIC PTR_XFER_TIMEDOUT 
PUBLIC PTR_XFER_ENABLED 

PUBLIC XFER_DATA_BUFFER 

$LIST 



DATE 


A51 MACRO ASSEMBLER CTI_GLBL.A51 
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409 


LOC OBJ LINE SOURCE 

208 $EJECT 

209 ; 

210 ; 8031 PORT 0 I/O DEFINITIONS 


1 j 

212 ; ADDRESS/DATA BUS.BIT(7) 

213 ; ADDRESS/DATA BUS -.BIT(6) 

214 ; ADDRESS/DATA BUS.BIT(5) 

215 ; ADDRESS/DATA BUS.BIT(4) 

216 ; ADDRESS/DATA BUS -.BIT(3) 

217 ; ADDRESS/DATA BUS.BIT(2) 

218 ; ADDRESS/DATA BUS -.BIT(l) 

219 ; ADDRESS/DATA BUS.BIT(0) 

220 ; 

221 ; 8031 PORT 1 I/O DEFINITIONS 

222 ; 

223 ; Unused-Bit(7) 

224 ; Unused....Bit(6) 


0095 225 CTI_HOST_RTS BIT P1.5 ; 

0094 226 CTI_HOST_CTS BIT P1.4 ; 

0093 227 CTI_PTR_RXD BIT PI.3 ; 

0092 228 CTI_PTR_EXPWR_ON BIT PI.2 

0091 229 CTI_PTR_TXD BIT Pl.l ; 

0090 230 CTI_LED_1 BIT P1.0 ; 

231 ; 

232 ; 8031 PORT 2 I/O DEFINITIONS 


» > 

234 ; ADDRESS BUS..BIT(15) 

235 ; ADDRESS BUS-BIT(14) 

236 ; ADDRESS BUS- BIT(13) 

237 ; ADDRESS BUS- BIT(12) 

238 ; ADDRESS BUS-—-BIT(ll) 

239 ; ADDRESS BUS- BIT(10) 

240 ; ADDRESS BUS- BIT(9) 

241 ; ADDRESS BUS-BIT(8) 

242 ; 

243 ; 8031 PORT 3 I/O DEFINITIONS 

244 ; 

00B7 245 CTI_LED_2 BIT P3.7 ;CTILED2.Bit(7) 

246 ; Unused-Bit(6) 

247 ; Unused- Bit(5) 

248 ; Unused-Bit(4) 

249 ; Unused.Bit(3) 


00B2 250 CTI_PTR_EXCLK BIT P3.2 ; PTR-800 external elk input 

(500HZ) Bit(2) 

00B1 251 CTI_HOST_TXD BIT P3.1 ; Host Serial Transmit Int — 

Bit(l) 

00B0 252 CTI_HOST_RXD BIT P3.0 ; Host Serial Receive Int. 

Bit(0) 


253 































A51 MACRO ASSEMBLER CTI_GLBL.A51 
27/09/91 PAGE 5 


DATE 


LOC OBJ LINE SOURCE 


254 SEJECT 

255 ; 

256 ; 

257 ; REGISTER BANK 0 

258 ; 

259 

260 
261 
262 

263 

264 

265 

266 

267 ; 

268 ; REGISTER BANK 1 

269 ; 

270 

271 

272 

273 

274 

275 

276 

277 

278 ; . 

279 ; REGISTER BANK 2 

280 ; 

281 

282 

283 

284 

285 

286 

287 

288 
289 


General Purpose Register 00 
General Purpose Register 01 
General Purpose Register 02 
General Purpose Register 03 
General Purpose Register 04 
General Purpose Register 05 
General Purpose Register 06 
General Purpose Register 07 


General Purpose Register 10 
General Purpose Register 11 
General Purpose Register 12 
General Purpose Register 13 
General Purpose Register 14. 
General Purpose Register 15 
General Purpose Register 16 
General Purpose Register 17 


General Purpose Register 20 
General Purpose Register 21 
General Purpose Register 22 
General Purpose Register 23 
Assigned to data space!!!!! 
Assigned to data space!!!!! 
Assigned to data space!!!!! 
Assigned to data space!!!!! 
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DATE 


LOC OBJ 


0013 

0014 

0015 

0016 

0017 

0019 

001A 

001C 
001D 
001E 
001F 


0020 

0004 

0003 

0002 

0001 

0000 

0021 

000A 

0009 

0008 

0022 

0013 

0012 

0011 

0010 

0023 
001C 
001B 
001A 
0019 
0018 


LINE SOURCE 



$ EJECT 

DSEG AT 13H 

DELAY_CTR_02: DS 1 

DEL A Y_CTR_01: DS 1 

DELAY_CTR_00: DS 1 

HOS T_C MD_REG: DS 1 

HOST_CMD_DATA_CNT: DS 2 

HOS T_D AT A_PTR: DS 1 

HOST_XFER_COUNT: DS 2 

CTI_BUFFER_COUNT: DS 1 

PTR_BIT_COUNT: DS 1 

PTR_PULSE_COUNT: DS 1 

PTR_CHECKSUM_REG: DS 1 

DSEG AT 20H 

BIT ADDRESSABLE SEGMENT 

CTI_STATUS: DS 1 

CTI_TURN_OFF_PHONE BIT CTI_STATUS.4 ; 
LIVE_PHONE_IN_CRADDLE BIT CTI_STATUS.3 ; 
HOST_TURN_PHONE_ON BIT CTI_STATUS.2 ; 
XFER_B UFFER_FULL BIT CTI_STATUS.l ; 

HOST_COMMAND BIT CTI_STATUS.O ; 

HOST_CTI_STATUS: DS 1 

CTI_CTPHONE_TIMEDOUT BIT HOST_CTI_STATUS.2 
CTI_HOST_TIMEDOUT BIT HOST_CTI_STATUS.l 
CTI ACTIVE CTPHONE BIT HOST CTI STATUS .0 


HOST_XFER_STATUS: DS 1 

HOST_CMD_PARAM_XFER BIT HOST_XFER_STATUS.3 
HOST_XFER_COMPLETE BIT HOST_XFER_STATUS.2 
HOST_XFER_TIMEDOUT BIT HOST_XFER_STATUS.l 
HOST XFER ENABLED BIT HOST XFER STATUS.O 


PTR_XFER_STATUS: DS 1 

PTR_EDGE_DETECTED BIT PTR_XFER_STATUS.4 
PTR_ONLINE_CHECK BIT PTR_XFER_STATUS.3 
PTR_D AT A_TR AN S MITTED BIT PTR_XFER_STATUS.2 
PTR_XFER_TIMEDOUT BIT PTR_XFER_S TATUS. 1 
PTR XFER ENABLED BIT PTR XFER STATUS.O 


DSEG AT 28H 


XFER_D ATA_B UFFER: DS 


; 56 bytes fifo to/from PTR-800 


0028 


38H 
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DATE 


41 % 


LOC OBJ LINE SOURCE 

341 END 

a 

i 

; End of CTI_GLBL.A51 


REGISTER BANK(S) USED: 0 

ASSEMBLY COMPLETE, NO ERRORS FOUND 
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DATE 27/09/91 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_ISRS.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_ISRS.A51 DEBUG ERRORPRINT(CTI_ISRS£RR) . 
NOSYMBOLS NOXREF 


LOC OBJ 


LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
33. 

34 

35 

36 

37 


SPAGEWIDTH (127) 
SPAGELENGTH (57) 


$TITLE 


(CTIJSRS.A51) 


Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTIJSRS.A51 
Module Name : CTI_ISRS.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 4,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 




MODULE HISTORY 




i * 

38 
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DATE 27/09/91 


LOC OBJ LINE SOURCE 


39 


$EJECT 

40 

• 

> 


41 


NAME CTI_INTERRUPT_SERVICES 

42 

• 

» 


43 

♦ 

» 

EXTERNAL REFERENCE TABLE 

44 

- * 

J 


45 


EXTRN CODE (DEC_HOST_XFER_COUNT) 

46 

47 


EXTRN CODE (SETUP_HOST_TIMEOUT) 

48 


EXTRN IDATA(STACK) 

49 

9 


50 

• 

» 

PUBLIC DECLARATION TABLE 

51 

* 


52 


PUBLIC CTPHONE_ACTIVE_ISR 

53 


PUBLIC CTI_TIMEOUT_ISR 

54 


PUBLIC HOST_XFER_ISR 

55 

9 

* 


262 


$LIST 

263 

264 

« 

t 


265 

CTI 

.INTERRUPTS SEGMENT CODE 

266 


RSEG CTIJNTERRUPTS 

267 

268 


USING REG_BANK_00 


A51 MACRO ASSEMBLER CTIJSRS.A51 
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DATE 27/09/91 


LOC OBJ 


LINE SOURCE 


269 

SEJECT 

270 

» 

7 

271 

1 N 

272 ; 

NAME: 

273 

274 ; 

i 

r 

DESCRIPTION: 

275 ; 

CALL: 

276 

ARGUMENTS: 

277 

MODIFIES: 

278 

RETURNS: 

279 

HISTORY: 

280 . 

> )|Cv 
t ^ 

281 

1 


0000 

0000 C0E0 
0002 C0D0 

0004 D200 
0006 0500 
0008 E500 


282 

283 


CTPHONE ACTIVE ISR: 


286 

F 

F 

F 


284 

285 

t 

287 

288 
289 

290 


000A B4230D 
CTPHONE_ACTIVE_ISR_EXIT 
OOOD 750000 F 291 
pulse cnt 

292 ; 

0010 300005 F 293 
0013 D200 F 294 
0015 020000 F 295 

296 ; 

0018 


push acc 
push psw 

setb PTR_EDGE_DETECTED 
inc PTR_PULSE_COUNT 
mov a, PTR_PULSE_COUNT 
cjne a, #PTR_EXCLK_DEBOUNCE, 

mov PTR_PULSE_COUNT, #00H 


; We have a pulse 


Clear the EXCLK 


jnb PTR_ONLINE_CHECK, CTPHONE_ACTIVE_ISROO 
setb LIVE_PHONE_IN_CRADDLE 
jmp CTPHONE_ACTIVE_ISR_EXIT 


0018 D205 


297 CTPHONE_ACTIVE_ISROO: 

298 ; jb HOST_TURN_PHONE_ON, CTPHONE_ACTIVE_ISR_EXIT 

299 setb CTI_TURN_PHONE_OFF 

300 ; 

001A 301 CTPHONE_ACTIVE_ISR_EXIT: 

001A DODO 302 pop psw 

001C DOEO 303 pop acc 

001E32 304 reti 


305 
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DATE 27/09/91 


4 /£> 


LOC OBJ LINE SOURCE 


306 


SEJECT 

307 

• 

» 


308 



309 

» 

» 

NAME: 

310 

* 

* 


311 

* 

DESCRIPTION: 

312 

a 

f 

CALL: 

313 

« 

ARGUMENTS: 

314 

a 

* 

MODIFIES: 

315 

a 

1 

RETURNS: 

316 

a 

* 

HISTORY: 

317 

;*> 


318 

a 

* 


00IF 319 

CTI_TIMEOUT_ISR: 

320 

a 

» 


001F 200006 F 

321 

jb HOST_XFER_ENABLED, CTI_TIMEOUT_ISR00 

0022 200008 F 

322 

jb PTR_XFER_ENABLED, CTI_TIMEOUT_ISR 11 

323 

a 

* 


0025 020000 F 

324 

jmp CTI_TIMEOUT_ISR_EXIT 

325 

a 

» 


0028 326 

CTI_TIMEOUT_ISR00: 

0028 D200 F : 

327 

setb HOST_XFER_TIMEDOUT 

002A020000 F 

328 

jmp CTI_TIMEOUT_ISR_EXIT 

329 

a 

j 


002D 330 

CTI_TIMEOUT_ISR 11: 

002D D200 F 

331 

setb PTR_XFER_TIMEDOUT 


332 ; 

002F 333 CTI_TIMEO UT_IS R_EXIT: 

002F32 334 reti 


335 


A 
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4 ? 

DATE 27/09/91 


LOC OBJ LINE SOURCE 


336 


SEJECT 


337 

• 

J 



338 

;*< 



339 

• 

* 

NAME: 


340 

• 

» 



341 

• 

DESCRIPTION: 


342 

• 

» 

CALL: 


343 

• 

» 

ARGUMENTS: 


344 

« 

i 

MODIFIES: 


345 

• 

RETURNS: 


346 

* 

i 

HISTORY: 


347 

• 

» ^ 



348 

• 

» 



0030 349 HOST_XFER_ISR: 

350 

i 



0030 C0E0 

351 

push 

acc ; Save the accumulator 

0032 C0D0 

352 

push 

psw ; Save the status word 

0034 C000 

353 

push 

REGISTER_00 

354 

ft 

» 


' 

0036 109806 

355 

jbc 

HOST_RXD, RECEIVE_HOST_DATA_ISR 

0039 109952 

356 

jbc 

HOSTTXD, TRANSMIT_HOST_DATA_ISR 

003C 020000 F 

357 

jmp 

HOST_XFER_ISR_EXIT ; Exit this isr 

358 

ft 

J 



003F 359 RECEIVE_HOST_DATA_ISR: 

360 

ft 

* 



003F 200024 F 

361 

jb 

HOST_COMMAND, RECEIVE_HOST_DATA_ISROO 

362 

ft 

» 



0042 859900 F 

363 

mov 

HOST_CMD_REG, HOST_DATA ; Get the transmitted 

command 




0045 D200 F 

364 

setb 

HOST_COMMAND ; First host xfer is command byte 

0047 C200 F 

365 

clr 

HOST_XFER_TIMEDOUT 

0049 C200 F 

366 

clr 

HOST_CMD_PARAM_XFER 

367 

ft 

J 



004B 750000 F 

368 

mov 

HOST_D AT A_PTR, #low XFER_DATA_BUFFER 

004E 750000 F 

369 

mov 

HOST_CMD_DATA_CNT, #00H ; Number of bytes the 

host will xfer 




0051750000 F 

370 

mov 

HOST_CMD_DATA_CNT + 1,#00H 

0054 750000 F 

371 

mov 

HOST_XFER_COUNT, #00H ; Clear the host byte count 

lsb 




0057 750000 F 

372 

mov 

HOST_XFER_COUNT + 1, #00H ; Clear the host byte 

count msb 




373 

ft 

V 



005A750000 F 

374 

mov 

CTI_B UFFER_COUNT, #OOH ; Clear the current fifo 

count 




005D C200 F 

375 

clr 

XFER_BUFFER_FULL ; Data buffer available 

005F 7900 F 

376 

mov 

rl, #low HOST_CMD_DATA_CNT 

0061 7A00 

377 

mov 

r2, #00H 

0063 020000 F 

378 

jmp 

HOST_XFER_ISR_EXIT ; Exit this isr 

379 

ft 

» 



380 







4/8 
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PAGE 6 


LOC OBJ LINE SOURCE 

381 SEJECT 

382 ; 

0066 383 RECEIVE_HOST_DATA_ISROO: 

384 ; 

0066 300049 F 385 jnb HOST_COMMAND, HOST_XFER_ISR_EXIT 

0069 200006 F 386 jb HOST_CMD_PARAM_XFER, • 

RECEI VE_HOST_DATA_ISR 11 

006C 200012 F 387 jb HOST_XFER_ENABLED, RECEIVE_HOST_DATA_ISR22 

006F 020000 F 388 jmp HOST_XFER_ISR_EXIT ; Exit this isr 

389 ; 

0072 390 RECEI VE_HOST_D AT A_ISR 11: 

0072 A799 391 mov @rl, HOST_DATA 

0074 09 392 inc rl 

0075 0A 393 inc r2 

0076120000 F 394 call SETUP_HOST_TIMEOUT 

395 ; 

0079 BA0236 396 cjne r2, #02H, HOST_XFER_ISR_EXIT 

007CC200 F 397 clr HOST_CMD_PARAM_XFER ; Got those params 

007E 020000 F 398 jmp HOS.T_XFER_ISR_EXIT ; Exit this isr 

399 ; 

0081 400 RECEI VE_HOST_D ATA_ISR22: 

401 ; 

0081 A800 F 402 mov r0, HOST_DATA_PTR ; Get the current pointer 

value 

0083 A699 403 mov @rO, HOST_DATA ; Send the current byte 

404 ; 

0085 120000 F 405 call DEC_HOST_XFER_COUNT ; Account for another 

byte 

406 ; 

0088 D50016 F 407 djnz CTI_BUFFER_COUNT, UPDATE_BUFFER_DATA_PTR; 

Acknowledge byte sent 
008B 020000 F 408 

409 ; 

410 


jmp HOST_XFER_ISR_EXIT 


; Exit this isr 


4/9 
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PAGE 7 


LOC OBJ 


LINE SOURCE 


411 

412 


SEJECT 


008E 


413 TRANSMIT_HOST_DATA_ISR: 


414 

» 

» 


008E300021 F 

415 

jnb 

0091 30001E F 

416 

jnb 

417 

• 

* 

0094 120000 F 

418 

call 


jnb HOST_COMMAND, HOST_XFER_ISR_EXIT 
jnb HOST_XFER_ENABLED, HOST_XFER_ISR_EXIT 


call DEC_HOST_XFER_COUNT 

byte 

419 ; 

0097 D50003 F 420 djnz CTI_BUFFER_COUNT, 

TRANSMIT_HOST_DATA_ISR00 ; Acknowledge byte sent 
009A 020000 F 421 jmp HOST_XFER_ISR_EXIT 

422 ; 

009D 423 TRANSMIT_HOST_DATA_ISR00: 

424 ; 

009DA800 F 425 mov rO, HOST_DATA_PTR 

value 

009F 8699 426 - 

427 ; 

428 


; Account for another 


Exit this isr 


; Get the current pointer 


mov HOST_DATA, @r0 


; Send the current byte 
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4Zo 


DATE 27/09/91 


LOC OBJ 


00 A1 


LINE SOURCE 

429 SEJECT 

430 ; 

431 UPD ATE_B UFFER_D AT A_PTR: 
432 : 


00 A1 0500 F 433 
00A3 120000 F 434 

435 ; 

00A6 E500 F 436 
00A8 B40000 F 437 
00AB 4005 438 

00AD D200 F 439 
buff ptr 

00AF 750000 F 440 

441 ; 

00B2 442 HOST_XFER_ISR_EXIT: 

443 : 


inc HOST_DATA_PTR 
call SETUP_HOST_TIMEOUT 

mov a, HOST_DATA_PTR 
cjne a, #low STACK, $+3 
jc HOST_XFER_ISR_EXIT 
setb XFER BUFFER FULL 


Point to next buffer location 


Check for buffer over-run 


; Data buffer full. Reset 
mov HOST_DATA_PTR, #low XFER_DATA_BUFFER 


00B2 D000 

444 

pop 

REGISTEROO 

00B4 DODO 

445 

pop 

psw 

00B6 DOEO 

446 

447 ; . 

pop 

acc 

00B8 32 

448 

reti 



; Restore the status word 
; Restore the accumulator 


449 

450 


END 


; End of CTIJSRS.A51 


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


DATE 
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MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_MAIN.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_MAIN.A51 DEBUG ERRORPRINT(CTI_MAIN.ERR) 
NOSYMBOLS NOXREF 


LOC OBJ LINE SOURCE 


1 

2 

3 : 

4 

5 ; 

6 : 

7 ; 

8 ; 
9 ; 
10 . 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_M AIN. A51) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_MAIN.A51 
Module Name : CTI_MAIN.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 2,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 


35 

36 

37 




MODULE HISTORY 


S^C 




38 
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DATE 


LOC OBJ LINE SOURCE 


39 

SEJECT 

- 

40 

• 

t 


41 

NAME 

CTI_MAIN_MODULE 

42 

• 

t 


43 

; EXTERNAL REFERENCE TABLE 

44 

♦ 

y 


45 

EXTRN 

CODE (CHECK_PHONE_STATUS) 

46 

EXTRN 

CODE (RESET_CTI_VARIABLES) 

47 

EXTRN 

CODE (SETUP_HOST_TIMEOUT) 

48 

EXTRN 

CODE (SETUP_TPHONE_TIMEOUT) 

49 



50 

EXTRN 

CODE (CMD_READ_PTR_PHONE_NUMBER) 

51 

EXTRN 

CODE (CMD_READ_PHONE_CALLS) 

52 

EXTRN 

CODE (CMD_READ_PHONE_TIME) 

53 

EXTRN 

CODE (CMD_WRITE_PHONE_TIME) 

54 

EXTRN 

CODE (CMD_TURN_PHONE_OFF) 

55 

EXTRN 

CODE (CMD_READ_PHONE_RTB_VER) 

56 

EXTRN 

CODE (CMD_READ_NOVATEL_VER) 

57 

EXTRN 

CODE (CMD_READ_CTI_VERSION) 

58 

EXTRN 

CODE (CMD_TURN_POWER_ON) 

59 

EXTRN 

CODE (CMD_LOCK_PHONE) 

60 

EXTRN 

CODE (CMD_UNLOCK_PHONE) 

61 

EXTRN 

CODE (CMD_READ_AIR_TIME_METER) 

62 

EXTRN 

CODE (CMD_FAKE_POWER_DOWN) 

63 

EXTRN 

CODE (CMD_READ_CALLS_COUNTER) 

64 

EXTRN 

CODE (CMD_READ_CALLS_RAM_PTR) 

65 

EXTRN 

CODE (CMD_WRITE_TELEMAC_FIRMWARE) 

66 

EXTRN 

CODE (CMD_PHONE_IN_CRADDLE) 

67 

EXTRN 

CODE (CMD_RESET_CALLS_POINTER) 

68 

EXTRN 

CODE (CMD_RESET_CALLS_COUNTER) 

69 

EXTRN 

CODE (CMD_RESET_AIR_TIME_METER) 

70 



71 

EXTRN 

IDATA (STACK) 

72 

• 

» 


73 

; PUBLIC DECLARATION TABLE 

74 



75 

PUBLIC CTI_MAIN_FUNCTION 

76 

• 

» 


283 

SLIST 


284 

* 

* 


285 



286 

CTI_MAIN_MODULE SEGMENT CODE 

287 

RSEG 

CTI_MAIN_MODULE 

288 

USING 

REG_BANK_00 

289 
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DATE 



LOC OBJ LINE SOURCE 


290 

SEJECT 

291 

» 

> ; 

292 

i x 

293 ; 

NAME: 

294 

295 

> 

DESCRIPTION: 

296 

CALL: 

297 

ARGUMENTS: 

298 

MODIFIES: 

299 

RETURNS: 

300 

HISTORY: 

301 


302 

» 

1 


0000 303 CTI_ 

304 ; 

_MAIN_FUNCTION: 


0000 C298 

305 

clr HOST_RXD 

; Clear for host data 

0002 C299 

306 

clr HOSTTXD 

; Incase a fake received came in 

0004 C200 F 

308 

307 

• 

» 

clr HOST_COMMAND 

; Clear host command flag 

0006 D200 F 

309 

setb CTI_PTR_TXD 

; Keep line high to phone 

0008 C200 F 

311 

310 

• 

> 

clr CTI_HOST_CTS 

; Flag host ready for action!!! 

000A 758100 F 

312 

mov sp, #low STACK-1 

; Initialize the top of stack 

000D750000 F 
EXCLK pulse cnt 

313 

mov PTR_PULSE_COUNT, #00H ; Clear the phone 

0010 D2A8 
interrupt 

314 

setb PTR_800_INTERRUPT 

; Turn on the phone 

0012 D2AC 
comm interrupt 

315 

setb HOST_COMM_INTERRUPT ; Turn on the serial 


316 ; 


0014 317 CTI_MAIN_00: 

0014 200006 F 318 jb HOST_TURN_PHONE_ON, CTI_MAIN_11 ; Host turned on 

the phone 

0017 300503 319 jnb CTI_TURN_PHONE_OFF, CTI_MAIN_11 ; Inactive so 

forget it 

001A 120000 F 320 call CTI_KEEP_CTPHONE_OFF 

321 ; 

00 ID 322 CTI_MAIN_11: 

00ID 2000E0 F 323 jb CTI_HOST_RTS, CTI_MAIN_FUNCTION ; Host not ready. 

Wait!!! 


0020 3000F1 F 
Command ??? 

324 

jnb 

HOST_COMMAND, CTI_MAIN_00 

; Host online, 

0023 120000 F 

325 

call 

PROCES S_HOST_COMM AND 

; The host current 


command 

326 ; 

0026 327 CTI_MAIN_22: 

0026 120000 F 328 call RESET_CTI_VARIABLES ; Clean up and return 

0029 0100 F 329 ajmp CTI_MAIN_FUNCTION 

330 ; 

331 
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DATE 


LOC OBJ 


LINE SOURCE 


002B 


332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 
345 

346 


SEJECT 


NAME: 

DESCRIPTION: 

CALL: 

ARGUMENTS: 

MODIFIES: 

RETURNS: 

HISTORY: 


PROCESS HOST COMMAND: 


clr HOST_RXD 
clr HOSTTXD 
mov a, HOST_CMD_REG 


; Clear for host data 
; Incase a fake received came in 
; Get the current host 


002BC298 347 clr HOST_RXD ; Clear for host data 

002D C299 348 clr HOST_TXD ; Incase a fake received came in 

002F E500 F 349 mov a, HOST_CMD_REG ; Get the current host 

command 

0031 B41600 350 cjne a, #CTI_MAX_COMMAND_COUNT, $+3 

0034 5024 351 jnc PROCESS_CMD_EXIT ; Illegal Command quit 

0036 352 PROCESS_CMD00: 

353 ; 

0036 B40403 354 cjne a,#CTI_TBD_04,PROCESS_CMD01 

0039 020000 F 355 jmp PROCESS_CMD_EXIT ; Illegal Command quit 

003C 356 PROCESS_CMD01: 

357 ; 

003C B40C03 358 cjne a,#CTI_TBD_12, PROCESS_CMD02 

003F 020000 F 359 jmp PROCESS_CMD_EXIT ; Illegal Command quit 

0042 360 PROCESS_CMD02: 

361 ; 

0042 75F000 362 mov b, #00H ; Clear the b register 

0045 B41203 363 cjne a, #CTI_PHONE_IN_CRADDLE, PROCESS_CMD03 

0048 8500F0 F 364 mov b, HOST_CTI_STATUS 

004B 365 PROCESS_CMD03: 

366 ; 

004B 85F000 F 367 mov HOST_CTI_STATUS, b ; Clear or add previous 


a, #CTI_TBD_12, PROCESS_CMD02 
PROCESS_CMD_EXIT ; Illegal Command quit 


004B 85F000 
status??? 
004E C2A8 
interrupt 
0050 C205 
0052 75F006 
0055 A4 
0056 900000 
0059 73 


F 367 

368 

369 
370 

371 

F 372 
373 


mov 


clr PTR 800 INTERRUPT 


; Clear or add previous 
; Tum off the phone 


clr CTI_TURN_PHONE_OFF 
mov b, #06H ; Byte count for ljmp instruction 

mul ab ; Multiply by 3 for command table 

mov dptr, #HOST_COMMAND_TABLE 
jmp @a+dptr ; Go execute the command 


005A 


005A22 


374 ; 

375 PROCESS_CMD_EXIT: 
376 ; 

377 ret 

378 
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LOC OBJ LINE SOURCE 


379 

380 

SEJECT 

* 

t 

381 

i N 

382 ; 

383 

NAME: 

» 

384 

DESCRIPTION: 

385 

CALL: 

386 

ARGUMENTS: 

387 

MODIFIES: 

388 

RETURNS: 

389 

HISTORY: 

390 • 


391 ; 

1 


005B 392 HOST_COMMAND_TABLE: 


393 

• 



005B 750006 F 

394 

mov 

CTI_BUFFER_COUNT, #06H 

005E 020000 F 

396 

395 

• 

* 

ljmp 

CMD_READ_PTR_PHONE_NUMBER 

0061 750038 F 

397 

mov 

CTI_BUFFER_COUNT, #38H 

0064 020000 F 

398 

ljmp 

CMD_READ_PHONE_CALLS 

399 

• 

» 


* 

0067 750008 F 

400 

mov 

CTI_BUFFER_COUNT, #08H 

006A 020000 F 

402 

401 

• 

» 

ljmp 

CMD_READ_PHONE_TIME 

006D 750008 F 

403 

mov 

CTI_BUFFER_COUNT, #08H 

0070 020000 F 

404 

ljmp 

CMD_WRITE_PHONE_TIME 

405 

♦ 

* 



0073 750000 F 

406 

mov 

cti_buffer_count, #ooh 

0076 020000 F 

408 

407 

• 

» 

ljmp 

RESET_CTI_V ARIABLES ; TB D 0x04 

0079 750000 F 

409 

mov 

CTI_BUFFER_COUNT, #ooh 

007C 020000 F 

411 

410 

ljmp 

CMD_TURN_PHONE_OFF 

007F 75000C F 

412 

mov 

cti_buffer_count, #och 

0082 020000 F 

413 

ljmp 

cmd_read_phone_rtb_ver 

414 

• 

» 



0085 75000C F 

415 

mov 

cti_buffer_count, #och 

0088 020000 F 

416 

ljmp 

CMD_READ_NOVATEL_VER 

417 

• 

* 



008B 75000C F 

418 

mov 

CTI_BUFFER_COUNT, #0CH 

008E 020000 F 

420 

419 

• 

f 

ljmp 

CMD_READ_CTI_VERSION 

0091750000 F 

421 

mov 

cti_buffer_count, #ooh 

0094 020000 F 

423 

422 

■ 

» 

ljmp 

CMD_TURN_POWER_ON 

0097 750000 F 

424 

mov 

CTI_BUFFER_COUNT, #00H 

009A020000 F 

426 

425 

• 

t 

ljmp 

CMD_LOCK_PHONE 

009D 750000 F 

427 

mov 

CTI_B UFFER_COU NT, #00H 

00A0 020000 F 

428 

ljmp 

CMD_UNLOCK_PHONE 


429 ; 
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DATE 


LOC OBJ 

LINE 

SOURCE 

00A3 750000 F 

430 

mov 

00A6 020000 F 

432 

431 

• 

ljmp 

00A9 750008 F 

433 

mov 

00AC 020000 F 

435 

434 

• 

‘ » 

ljmp 

00AF 750000 F 

436 

mov 

00B2 020000 F 

438 

437 

• 

» 

ljmp 

00B5 750002 F 

439 

mov 

00B8 020000 F 

441 

440 

• 

» 

ljmp 

00BB 750002 F 

442 

mov 

00BE 020000 F 

444 

443 

♦ 

* 

ljmp 

00C1 750038 F. 

445 

mov 

00C4 020000 F 

447 

446 

• 

» 

ljmp 

00C7 750001 F 

448 

mov 

OOCA 020000 F 

450 

449 

* 

» 

ljmp 

OOCD 750000 F 

451 

mov 

00D0 020000 F 

452 

ljmp 

453 

* 


00D3 750000 F 

454 

mov 

00D6 020000 F 

456 

455 

• 

t 

ljmp 

00D9 750000 F 

457 

mov 

OODC 020000 F 

459 

458 

ljmp 


CTI_BUFFER_COUNT, #00H 
RESET_CTI_VARIABLES ; TBD OxOC 

CTI_BUFFER_COUNT, #08H 
CMD_READ_AIR_TIME_METER 

CTI_B UFFER_COU NT, #00H 
CMD_FAKE_POWER_DOWN 

CTI_BUFFER_COUNT, #02H 
CMD_READ_CALLS_COUNTER 

CTI_BUFFER_COUNT, #02H 
CMD_READ_CALLS_RAM_PTR 

CTI_BUFFER_COUNT, #38H 
CMD_WRITE_TELEMAC_FIRMWARE 

CTI_BUFFER_COUNT, #01H 
CMD_PHONE_IN_CRADDLE 

CTI_BUFFER_COUNT, #OOH 
CMD_RESET_CALLS_POINTER 

CTI_BUFFER_COUNT, #00H 
C MD_RES ET_C ALLS.COUNTER 

CTI_B UFFER_COUNT, #00H 
CMD RESET AIR TIME METER 
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I ■ 


vjl? 

DATE 


LOC OBJ 

LINE 

SOURCE 

460 


SEJECT 

461 

* 


462 

;*< 


. 463 

» 

NAME: 

464 

» 

* 

465 

» 

DESCRIPTION: 

466 

» 

CALL: 

467 

» 

ARGUMENTS: 

468 

> 

MODIFIES: 

469 

> 

RETURNS: 

470 


HISTORY: 

471 

;*> 


472 

» 


00DF 473 CTI_KEEP_CTPHONE_OFF: 

474 

9 

* 


00DF C2A8 

475 

clr PTR_800_INTERRUPT ; Turn off the phone 

interrupt 



00E1 C205 

476 

clr CTI_TURN_PHONE_OFF 

00E3 75000E F 

477 

mov HOST_CMD_REG, #CTI_FAKE_POWER_DOWN 

00E6 120000 F 

478 

call CMD_FAKE_POWER_DOWN ; Turn everything 

00E9 120000 F 

479 

call RESET_CTI_VARIABLES ; Clean up and return 

480 

9 

* 

00EC 22 

481 

ret 

482 

483 


END 


; End of CTI_MAIN.A51 


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE, NO ERRORS FOUND 








A51 MACRO ASSEMBLER CTI_UTIL.A51 
27/09/91 PAGE 1 


DATE 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI JJTIL.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_UTIL.A51 DEBUG ERR0RPR1NT(CTI_UTIL.ERR) 
NOSYMBOLS NOXREF 

LOC OBJ LINE SOURCE 


r 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_UTIL.A51) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_UTIL.A51 
Module Name : CTIJJTIL.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created : August 8,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 




MODULE HISTORY 


sfc :fe 5(e 4c !(e * jfc ♦ 
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LOC OBJ LINE SOURCE 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

264 

265 

266 

267 

268 

269 

270 


SEJECT 

NAME CTI_SUPPORT_FUNCTIONS 

EXTERNAL REFERENCE TABLE 

EXTRN CODE (CMD_FAKE_POWER_DOWN) 

PUBLIC DECLARATION TABLE 

PUBLIC CHECK_PHONE_STATUS 
PUBLIC DEC_HOST_XFER_COUNT 
PUBLIC RESET_CTI_VARIABLES 
PUBLIC SETUP_HOST_TIMEOUT 
PUBLIC SETUP_TPHONE_TIMEOUT 
PUBLIC TIME_DELAY 
PUBLIC DELAY_350_MSECS 
PUBLIC DEL A Y_WRITE_RAM_FIRMW ARE 

$LIST 


CTI_UTILITIES SEGMENT CODE 
RSEG CTI_UTILITEES 
USING REG_BANK_00 


42 ? 
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DATE 


LOC OBJ LINE SOURCE 


271 

272 

SEJECT 

» 

» 

273 

t ^ 

274 ; 

NAME: 

275 

t 

276. . 

DESCRIPTION: 

277 

CALL: 

278 

ARGUMENTS: 

279 

MODIFIES: 

280 

RETURNS: 

281 

HISTORY: 

282 

} ^ 

283 

1 


0000 284 RESET_CTI_VARIABLES: 

285 ; 


0000 A200 

F 

286 

mov 

c, HOST_XFER_TIMEDOUT 

0002 9200 

F 

287 

mov 

CTI_HOST_TIMEDOUT, c 

0004 A200 

F 

288 

mov 

c, PTR_XFER_TIMEDOUT 

0006 9200 

F 

289 

mov 

CTI_CTPHONE_TIMEDOUT, c 

0008 A200 

F 

290 

mov 

c, LIVE_PHONE_IN_CRADDLE 

OOOA 9200 

F 

291 

mov 

CTI_ACTIVE_CTPHONE, c 

000C 300506 

292 

293 

jnb 

CTI_TURN_PHONE_OFF, RESET_CTI_VARIABLESOO 

000F 75000E 

F 

294 

mov 

HOST_CMD_REG, #CTI_FAKE_POWER_DOWN 

0012 120000 

F 

295 

call 

CMD_FAKE_POWER_DOWN 

0015 

296 ; 

297 RESET_CTI 

_VARIABLES0O: 

0015 C298 


298 

cir ] 

HOST_RXD ; Clear host received bit 

0017 C299 


299 

cir ] 

HOST_TXD ; Clear host transmit bit 

0019 7500FF 

F 

300 

mov 

HOST_CMD_REG, #0FFH ; Invalid command 

001C C200 

F 

301 

cir 

HOST_XFER_EN ABLED 

00 IE C200 

F 

302 

cir 

HOST_XFER_TIMEDOUT ; Clear host timed out 

flag 

0020 C200 

F 

303 

cir 

HOST_CMD_PARAM_XFER ; Clear Host param flag 

0022 750000 

F 

304 

mov 

HOST_D AT A_PTR, #low XFER_DATA_BUFFER 

0025 750000 

F 

305 

mov 

HOST_XFER_COUNT, #00H ; Clear the host byte 

count lsb 
0028 750000 

F 

306 

mov 

HOST_XFER_COUNT + 1, #00H ; Clear the host byte 

count msb 

002B C200 

307 

F 

• 

308 

cir 

ptr_xfer_enabled 

002D C200 

F 

309 

cir 

PTR_XFER_TIMEDOUT 

002F D2A8 


310 

setb 

PTR_800_INTERRUPT 

0031 750000 

F 

311 

mov 

PTR_PULSE_COUNT, #O0H 

0034 C200 

312 

F 

• 

313 

cir 

CTI_HOST_CTS ; Flag host ready for action!!! 

0036 C205 


314 

cir CTI_TURN_PHONE_OFF 

0038 750000 

F 

315 

mov 

CTI_BUFFER_COUNT, #00H ; Clear the current fifo 

count 

003B C200 

F 

316 

cir 

XFER_BUFFER_FULL ; Data buffer available 

003D C2A9 

317 

• 

318 

cir 

XFER_TIMEOUT_INTERRUPT 

003F C28C 


319 

cir 

START_CTI_TIMEOUT ; Stop the timeout counter 

0041 758841 


320 

mov 

tcon, #0100000IB ; Set timer control to all bits off 




43 / 


321 ; 
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DATE 


LOC OBJ 

0044 7800 
0046 7938 


0048 

0048 7600 
004A 08 
004B D9FB 



LINE SOURCE 

F 322 mov rO, #low XFER_DATA_BUFFER 

323 mov r 1, #MAX_B UFFERJ.S IZE 

324 ; 

325 ; Clear the transfer buffer RAM 

326 ; 

327 RESET CTI_VARIABLES11: 

mov @i0, #00H 
inc rO 

djnz rl, RESET_CTI_VARIABLES 11 


331 


328 

329 

330 
• 

332 


004D22 


333 


ret 


DATE 
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LOC OBJ LINE SOURCE 


334 

335 

$ EJECT 

» 

> 

336 

i N 

337 ; 

338 

NAME: 

B 

» 

339 ; 

DESCRIPTION: 

340 ; 

CALL: 

341 

ARGUMENTS: 

342 

MODIFIES: 

343 

RETURNS: 

344 

HISTORY: 

345 : 

i ^ 

346 

B 

ft 


004E 347 CHECK_PHONE_STATUS: 

348 : 


004E D200 F 

349 

setb 

PTR_ONLINE_CHECK 


0050 D200 F 

350 

setb 

PTR_XFER_EN AB LED 


0052 D2A8 

351 

setb 

PTR_800_INTERRUPT 


0054 750000 F 

352 

mov 

PTR_PULSE_COUNT, #00H 


0057 C200 F 

353 

clr 

LIVE_PHONE_IN_CRADDLE 


354 

♦ 

* 




0059 750001 F 

355 

mov 

DELAY_CTR_02, #01H 


005C 75007E F 

356 

mov DELAY_CTR_01, #7EH 


005F 120000 F 

357 

call 

TIME_DELAY ; Wait for ~70msecs 

358 

• 

* 




0062 7D00 

359 

mov 

r5, #O00H 


0064 7E4C 

360 

mov 

r6, #04CH 


0066120000 F 

361 

call 

SETUP_TPHONE_TIMEOUT 

; Time out in ~70msecs 

0069 D2A9 

362 

setb 

XFER_TIMEOUT_INTERRUPT 


363 

• 

» 




006B 364 CHECK_PHONE_STATUS00: 


006B 200006 F 

365 

jb 

PTR_XFER_TIMEDOUT, CHECK_PHONE_STATUS 11 

006E 3000FA F 

366 

jnb 

LIVE_PHONE_IN_CRADDLE, 


CHECK_PHONE_ST ATU S00 




0071200002 F 

367 

jb 

LIVE_PHONE_IN_CRADDLE, 



CHECK_PHONE_STATUS_EXIT 

368 ; 

0074 369 CHECK_PHONE_STATUS 11: 


0074 D205 

370 

371 ; 

setb 

CTI_TURN_PHONE_OFF 

0076 

372 CHECK_PHONE_STATUS_EXIT: 

0076 C2A9 

373 

clr 

XFER_T1ME0 UT_INTERRUPT 

0078 C2A8 

374 

clr 

PTR_800_INTERRUPT 

007A C200 

F 375 

clr 

PTR_XFER_ENABLED 

007C C200 

F 376 

clr 

PTR_ONLINE_CHECK 


377 ; 



007E 22 

378 

379 

ret 




A51 MACRO ASSEMBLER CTI_UTIL.A51 
27/09/91 PAGE 6 


DATE 



LOC OBJ LINE SOURCE 


380 

SEJECT 

381 

■ 

i 

382 

» X 

383 ; 

NAME: 

384 

t 

> 

385 

DESCRIPTION: 

386 

CALL: 

387 

ARGUMENTS: 

388 

MODIFIES: 

389 

RETURNS: 

390 

HISTORY: 

391 

♦s 

392 

» 

t 


007F 

393 DEC. 
394 ; 

_HOST_XFER_COUNT: 

007F C0E0 

395 

396 ; 

push acc ; Save the accumulator 

0081 C3 

397 

clr c 

0082 E500 

F 398 

mov a, HOST_XFER_COUNT ; 

0084 9401 

399 

subb a, #01H ; Another byte xfered 

0086 C500 

F 400 

xch a, HOST_XFER_COUNT ; 

0088 E500 

F 401 

mov a, HOST_XFER_COUNT + 1 

008A9400 

402 

subb a, #00H 

008C F500 

F 403 

404 ; 

mov HOST_XFER_COUNT + 1, a 

008E 4500 

F 405 

orl a, HOST_XFER_COUNT ; If transfer complete??? 

0090 7002 

406 

jnz DEC_HOST_XFER_COUNT_EXIT ; Quit if not else 

0092 D200 

F 407 

408 ; 

setb HOS T_XFER_COMPLETE ; Flag it 

0094 

409 DEC. 

HOS T_XFER_COUNT_EXIT: 

0094 D0E0 

410 

pop acc ; Restore the accumulator 

0096 22 

411 

412 

ret 


; Restore the accumulator 
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LOC OBJ LINE SOURCE 


413 

414 

415 

;*< 

SEJECT 


416 

» 

NAME: 


417 

» 


i * 

418 

» 

DESCRIPTION: 


419 

> 

CALL: 


420 

* 

ARGUMENTS: 


421 

) 

MODIFIES: 


422 

» 

RETURNS: 


423 

» 

HISTORY: 


424 

425 

;*> 

» 


• 

0097 426 SETUP_HOST_TIMEOUT: 

427 ; 

0097 C28C 

428 

clr ! 

START_CTI_TIMEOUT ; Stop the timeout counter 

0099 758AC0 
counter 

429 

mov 

tlO, #low HOST_TIMEOUT_CNT ; Reset timeout 

009C 758CF4 

430 

mov 

thO, #high HOST_TIMEOUT_CNT 

009F 758841 

431 

mov 

tcon, #0100000IB ; Set timer control to all bits off 

00A2 D28C 

counter 

433 

432 

• 

» 

setb 

START_CTI_TIMEOUT ; Restart the timeout 

00A4 C200 F 

434 

clr 

HOST_XFER_TIMEDOUT 

435 

• 

* 


* 

00A6 22 

436 

ret 



437 
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DATE 


43t> 

LOC OBJ LINE SOURCE 


438 

439 

j 

SEJECT 

440 

;*< 


441 

442 

> 

* 

NAME: 

443 


DESCRIPTION: 

444 

» 

CALL: 

445 

» 

ARGUMENTS: 

446 

» 

MODIFIES: 

447 

» 

RETURNS: 

448 

» 

HISTORY: 

449 

450 

;*> 

* 



00A7 451 SETUP_TPHONE_TIMEOUT: 


00A7 C28C 

453 

clr 

START_CTI_TIMEOUT 

; Stop the timeout counter 

00A9 8D8A 

454 

mov 

tlO, r5 ; Reset timeout counter 

00AB 8E8C 

455 

mov 

th0,r6 


00AD 758841 

456 

mov 

tcon, #01000001B 

; Set timer control to all bits off 

00B0 D28C 

457 

setb 

START_CTI_TIMEOUT 

; Restart the timeout 

counter 





458 

» 

» 




00B2 C200 F 

459 

clr 

PTR_XFER_TIMEDOUT 


460 

* 

» 




00B4 22 

461 

ret 




462 




A51 MACRO ASSEMBLER CTI_UTIL. A51 
27/09/91 PAGE 9 


DATE 


43? 


LOC OBJ LINE SOURCE 


463 

464 

$ EJECT 

t 

465 

t ' 

466 ; 

467 

NAME: Time_Delay 

» 

i 

468 ; 

DESCRIPTION: 

469 , 

CALL: 

470 ; 

ARGUMENTS: 

471 ; 

MODIFIES: 

472 ; 

RETURNS: 

473 ; 

HISTORY: 

474 


475 

• 

1 


00B5 476 TIME.DELAY: 

00B5 750000 F 477 mov DELAY_CTR_00, #000H 

counter 

478 ; 

00B8 479 TIME_DELA Y 00: 


00B8 D500FD 

us 

00BB D500FA 

F 

480 

djnz 

DELAY_CTR_00, $ 

F 

481 

djnz 

DELAY_CTR_01, TIME 

00BE D500F7 

F 

482 

djnz 

DEL A Y_CTR_02, TIME. 


483 ; 

00C122 484 ret 


485 


I ' 


; Clear 553.8542 usee 

; Count down for 553.8542 

_DELAY00 

DELAY00 
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DATE 



LOC OBJ LINE SOURCE 


486 

$EJECT 

487 

• 

» 

488 

ift 

i N 

489 ; 

NAME: 

490 

t 

491 ; 

DESCRIPTION: 

492 ; 

CALL: 

493 

ARGUMENTS: 

494 

MODIFIES: 

495 

RETURNS: 

496 

HISTORY: 

497 

♦"S 

► 

498 

» 

i 


00C2 499 DELAY_350_MSECS: 

500 ; 


00C2 750003 

count 

F 

501 

mov 

DELAY_CTR_02, #03H 

; Setup 350msec delay 

00C5 750078 

F 

502 

mov 

DEL A Y_CTR_01, #78H 


00C8 120000 F 

504 

00CB 22 

503 

• 

505 

call 

ret 

TIME_DELAY 

; Go and wait for that time 


506 


1 
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DATE 


437 


LOC OBJ 

LINE 

SOURCE 

* 

507 

508 

509 

510 

;*< 

SEJECT 

NAME: 


511 

512 


DESCRIPTION: 


513 


CALL: 


514 


ARGUMENTS: 


515 


MODIFIES: 


516 


RETURNS: 


517 


HISTORY: 


518 

;*> 



519 ; 

00CC 520 DELAY_WRITE_RAM_FIRMWARE: 

521 

00CC 750001 F 

• 

522 

mov 

DELAY_CTR_02, #01H 

count 

00CF 75007E F 

523 

mov 

DELAY_CTR_01, #7EH 

00D2 120000 F 

524 

call 

TIME_DELAY 

525 

* 



00D5 22 

526 

ret 



527 

528 END 


; End of CTIJJTIL.A51 


REGISTER BANK(S) USED: 0 


; Setup 350msec delay 
; Go and wait for that time 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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DATE 


437 


LOC OBJ 

LINE 

SOURCE 


507 


SEJECT 


508 

» 



509 

;*< 



. 510 

i 

NAME: 


511 

i 



512 

* 

DESCRIPTION: 


513 

> 

CALL: 


514 

> 

ARGUMENTS: 


515 

» 

MODIFIES: 


516 

» 

RETURNS: 


517 

» 

HISTORY: 


518 

;*> 



519 

» 



00CC 520 DELAY_WRITE_RAM_FIRMWARE: 

521 

• 

» 



00CC 750001 F 

522 

mov 

DELAY_CTR_02 

count 




00CF 75007E F 

523 

mov 

DEL A Y_CTR_01 

00D2 120000 F 

524 

call 

TIME_DELAY 

525 

» 

t 



00D5 22 

526 

ret 


527 




528 


END 



; Setup 350msec delay 


; Go and wait for that time 


; End of CTI UTIL.A51 


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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DATE 27/09/91 



MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_VARS.OBJ 
ASSEMBLER INVOKED BY: A51CTI VARS.INC 


LOC OBJ LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_VARS.INC) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_VARS.INC 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created: August 4,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 




MODULE HISTORY 


3fc3#C3fc 







» ■ 


A51 MACRO ASSEMBLER CTI_VARS 
PAGE 2 


LOC OBJ LINE SOURCE 


38 


SEJECT 

39 

• 


40 

m 

t 

EXTERNALS 

41 

• 

J 


42 


EXTRN 

43 


EXTRN 

44 


EXTRN 

45 


EXTRN 

46 


EXTRN 

47 

48 


EXTRN 

49 


EXTRN 

50 


EXTRN 

51 


EXTRN 

52 

53 


EXTRN 

54 


EXTRN 

55 


EXTRN 

56 

57 


EXTRN 

58 


EXTRN 

59 


EXTRN 

60 


EXTRN 

61 


EXTRN 

62 


EXTRN 

63 


EXTRN 

64 


EXTRN 

65 


EXTRN 

66 

• 

t 


67 


EXTRN 

68 


EXTRN 

69 


EXTRN 

70 


EXTRN 

71 


EXTRN 

72 


EXTRN 

73 

9 , 

J 


74 


EXTRN 

75 


EXTRN 

76 


EXTRN 

77 


EXTRN 

78 

9 

J 


79 


EXTRN 

80 


EXTRN 

81 


EXTRN 

82 


EXTRN 

83 


EXTRN 

84 

m 


85 . 


EXTRN 

86 


EXTRN 

87 


EXTRN 

88 


EXTRN 

89 


EXTRN 

90 


EXTRN 

91 

• 

9 



DECLARATION TABLE 

B IT (CTI_HOST_RTS) 

B IT (CTI_HOST_CTS) 
BIT(CTI_PTR_RXD) 

B IT (CTI_PTR_EXP WR_ON) 

BIT(CTI_PTR_TXD) 

BIT(CTI_LED_1) 

BIT(CTI_LED_2) 

BIT(CTI_PTR_EXCLK) 

BIT(CTI_HOST_TXD) 

BIT(CTI_HOST_RXD) 

DATA(DELAY_CTR_02) 
DATA(DELAY_CTR_01) 
DATA(DELAY_CTR_00) 

DATA(HOST_CMD_REG) 

DATA(HOST_CMD_DATA_CNT) 

DATA(HOST_DATA_PTR) 

DATA(HOST_XFER_COUNT) 

D AT A(PTR_B IT_CO UNT) 
DATA(PTR_PULSE_COUNT) 
DATA(PTR_CHECKSUM_REG) 
DATA(CTI_BUFFER_COUNT) 

DATA(CTI_STATUS) 
BIT(CTI_TURN_OFF_PHONE) 
BIT(LIVE_PHONE_IN_CRADDLE) 
B IT (HOST_TURN_PHONE_ON) 

B IT (XFER_BUFFER_FULL) 
BIT(HOST_COMMAND) 

DATA(HOST_CTI_STATUS) 

BIT (CTI_HOST_TIMEDOUT) 

B IT(CTI_CTPHONE_TIMEDOUT) 
BIT(CTI_ACTIVE_CTPHONE) 

DATA(HOST_XFER_STATUS) 
BIT(HOST_CMD_PARAM_XFER) 
B IT( HOS T_XFER_CO MPLETE) 

B IT(HOST_XFER_TIMEDOUT) 
BIT(HOST_XFER_ENABLED) 

DATA(PTR_XFER_STATUS) 

B IT (PTR_EDGE_DETECTED) 

BIT(PTR_ONLINE_CHECK) 

BIT(PTR_DATA_TRANSMITTED) 

BIT(PTR_XFER_TIMEDOUT) 

BIT(PTR_XFER_ENABLED) 


DATE 27/09/91 


92 EXTRN DATA(XFER_DATA_BUFFER) 

93 ; 

94 ; End of CTI_VARS.INC 

95 

96 



» 



N. 


A51 MACRO ASSEMBLER CTI_VARS 
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m 

DATE 27/09/91 


SYMBOL TABLE LISTING 


NAME TYPEVALUE ATTRIBUTES 

CTI_ACTIVE_CTPHONE.. B ADDR — EXT 
CTI_BUFFER_COUNT... D ADDR — EXT 
CTI_CTPHONE_TIMEDOUT. B ADDR —- EXT 

CTI_HOST_CTS.B ADDR —- EXT 

CTI_HOST_RTS.B ADDR —- EXT 

CTI_HOST_RXD.B ADDR — EXT 

CTI_HOST_TIMEDOUT .. B ADDR —- EXT 

CTI_HOST_TXD.B ADDR — EXT 

CTI_LED_1.B ADDR — EXT 

CTI_LED_2.B ADDR — EXT 

CTI_PTR_EXCLK .... B ADDR EXT 

CTI_PTR_EXPWR_ON... B ADDR — EXT 

CTI_PTR_RXD.B ADDR — EXT 

CTI_PTR_TXD.B ADDR EXT 

CTI_STATUS.D ADDR — EXT 

CTI_TURN_OFF_PHONE.. B ADDR —- EXT 

DELAY_CTR_00.D ADDR —- EXT 

DELAY_CTR_01.D ADDR — EXT 

DELAY_CTR_02.D ADDR — EXT 

HOST_CMD_DATA_CNT .. D ADDR —- EXT 

HOST_CMD_PARAM_XFER . B ADDR — EXT 

HOST_CMD_REG.D ADDR —- EXT 

HOST_COMMAND.B ADDR — EXT 

HOST_CTI_STATUS ... D ADDR — EXT 

HOST_DATA_PTR_D ADDR —- EXT 

HOST_TURN_PHONE_ON.. B ADDR — EXT 
HOST_XFER_COMPLETE.. B ADDR —- EXT 

HOST_XFER_COUNT... D ADDR — EXT 
HOST_XFER_ENABLED .. B ADDR — EXT 
HOST_XFER_STATUS... D ADDR — EXT 
HOST_XFER_TIMEDOUT.. B ADDR — EXT 
LIVEJPHONEJNCRADDLE B ADDR — EXT 

PTR_BIT_COUNT_D ADDR —- EXT 

PTR_CHECKSUM_REG... D ADDR —- EXT 
PTR_DATA_TRANSMITTED. B ADDR —- EXT 

PTR_EDGE_DETECTED .. B ADDR —- EXT 
PTR_ONLINE_CHECK... B ADDR — EXT 
PTR_PULSE_COUNT... D ADDR — EXT 
PTR_XFER_ENABLED... B ADDR — EXT 
PTR_XFER_STATUS ... D ADDR — EXT 
PTR_XFER_TIMEDOUT .. B ADDR — EXT 
XFER_BUFFER_FULL... B ADDR — EXT 
XFER_DATA_BUFFER... D ADDR — EXT 


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE, NO ERRORS FOUND 
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DATE 


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN CTI_XFER.OBJ 

ASSEMBLER INVOKED BY: A51 CTI_XFER.A51 DEBUG ERRORPRINT(CTI_XFER.ERR) 
NOSYMBOLS NOXREF 

LOC OBJ LINE SOURCE 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


SPAGEWIDTH (127) 

SPAGELENGTH (57) 

STITLE (CTI_XFER.A51) 

Program Title: Cellular Telephone Interface Controller Firmwa 
Filename : CTI_XFER.A51 
Module Name : CTI_XFER.OBJ 
Project # : 

Author : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Created : August 7,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. 8051 Hardware Reference Manual 

2. Franklin Software DK51 Development Tools 

3. 




MODULE. HISTORY 
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4 ^ 

DATE 


LOC OBJ LINE SOURCE 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
262 

263 

264 

265 

266 
267 


$ EJECT 

> 

NAME CTI_COMMUNIC ATION S_HANDLER 

» 

; EXTERNAL REFERENCE TABLE 

■ 

1 

EXTRN CODE (SETUP_HOST_TIMEOUT) 
EXTRN CODE (SETUP_TPHONE_TIMEOUT) 

» 

; PUBLIC DECLARATION TABLE 

> 

PUBLIC RECEIVE_HOST_DATA 
PUBLIC TRANSFER_HOST_D AT A 

PUBLIC RECEIVE_PHONE_DATA 
PUBLIC TRANSFER_PHONE_DATA 

i 

$LIST 

« 

1 

CTI_COMMUNICATIONS SEGMENT CODE 
RSEG CTI_COMMUNICATIONS 
USING REG_BANK_00 
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DATE 


LOC OBJ 


LINE SOURCE 


268 

269 

SEJECT 

» 

> 

270 


271 ; 

272 

NAME: 

» 

t 

273 

DESCRIPTION: 

274 

CALL: 

275 

ARGUMENTS: 

276 

MODIFIES: 

277 

RETURNS: 

278 

HISTORY: 

279 


280 

281 

V 

1 

I 


0000 

282 RECEIVE_HOST 

.DATA: 


283 

* 

J 



0000 C298 


284 

clr 

HOST_RXD ; Clear receive flag 

0002 C299 


285 

clr 

HOST_TXD ; Clear transmit flag 

0004 C200 

F 

286 

clr 

CTI_HOST_CTS ; Flag host ready for action!! 

0006 D200 

F 

287 

setb 

host_xfer_enabled 


288 

* 

1 



0008 120000 

F 

289 

call 

SETUP_HOST_TIMEOUT 

000B D2A9 


290 

setb 

XFER_TIMEOUT_INTERRUPT 


291 

• 



000D 

292 RECEIVE_HOST_DATAOO: 

000D 200004 F 

293 

jb 

HOST_XFER_TIMEDOUT, RECEIVE_HOST_DATA 11 

0010 E500 

F 

294 

mov 

a, CTI_B UFFER_COUNT 

0012 70F9 


295 

jnz 

RECEI VE_HOST_DATAOO 


296 

• 



0014 

297 RECEI VE_HOST_D ATA11: 

0014 C2A9 


298 

clr 

XFER_TIMEOUT_INTERRUPT 

0016C200 

F 

299 

clr 

HOST_XFER_ENABLED 

0018 C28C 


300 

clr 

START_CTI_TIMEOUT 

001A D200 

F 

301 

setb 

CTI_HOST_CTS ; Stop all host xfers 


302 

* 

* 



001C22 


303 

ret 



304 


446 
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DATE 


LOC OBJ 


LINE SOURCE 


305 

SEJECT 

306 


307 

;*< 

308 

; NAME: 

309 

» 

310 

; DESCRIPTION: 

311 

; CALL: 

312 

; ARGUMENTS: 

313 

; MODIFIES: 

314 

; RETURNS: 

315 

; HISTORY: 

316 

;*> 

317 

9 

318 

9 


001D 

001D C298 
001FC299 
0021C200 
0023 D200 

0025 120000 
0028 D2A9 

002A A800 
value 


319 

320 


TRANSFER HOST DATA: 


F 

F 

325 

F 

328 

F 


321 

322 

323 

324 
• 

326 

327 
• 

329 


clr 

clr 

clr 

setb 

call 

setb 


HOST_RXD 
HOSTTXD 
CTI_HOST_CTS 
HOST XFER ENABLED 


; Clear receive flag 
; Clear transmit flag 

; Flag host ready for action!!! 


SETUP_HOST_TIMEOUT 
XFER TIMEOUT INTERRUPT 


mov r0, HOST_DATA_PTR 


; Get the current pointer 


002C 8699 

330 

mov 

HOST_DATA, @r0 

; Send the current byte 

002E0500 

F 331 

inc 

HOST_DATA_PTR 

; Point to next available 

record 

332 ; 




0030 

333 TRANSFER_HOST_DATA00: 


0030 200004 

F 334 

jb 

HOST_XFER_TIMEDOUT, TRANSFER_HOST_DATA 11 

0033 E500 

F 335 

mov 

a, CTI_BUFFER_COUNT 


0035 70F9 

336 

jnz 

TRANSFER_HOST_DATA00 



337 ; 




0037 

338 TRANSFER_HOST_D AT A11: 


0037 D200 

F 339 

setb 

CTI_HOST_CTS 

; Stop all host xfers 

0039 C2A9 

340 

clr 

XFER_TI MEO UT_I NTERRUPT 

003B C200 

F 341 

clr 

HOST_XFER_ENABLED 


003D C28C 

342 

clr 

START_CTI_TIMEOUT 



343 ; 




003F22 

344 

ret 




345 . 
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DATE 


LOC OBJ LINE SOURCE 



346 


SEJECT 


347 

ft 



348 

;*< 



349 ; 


NAME: 


350 

» 

t 



351 ; 


DESCRIPTION: 


352 ; 

► 

CALL: 


353 


ARGUMENTS: 


354 


MODIFIES: 


355 


RETURNS: 


356 


HISTORY: 


357 




358 




359 

» 

r 

• 

0040 

360 

RECEIVE_PHONE_DATA: 


361 

ft 

9 


0040 E4 

362 

clr a ; No data available 

0041 D3 

363 

setb c ; Set for start bit 

0042 750008 

F 364 

mov PTR_BIT_COUNT, #08H ; 

0045 D200 

F 365 

setb PTR_XFER_ENABLED 

0047 D2A9 

366 

setb XFER TIMEOUT INTERRUPT 


Start + Data bits count 


367 ; 

368 ; Setup for PTR start bit wait for -497.77 msecs 

369 ; 


0049 7C07 

370 

371 ; 

mov 

r4, #07H 

; Count for -497.77 msecs wait time 

004B 

372 RECV_PHONE_DATA00: 

; Setup for start bit wait 

004B 7D00 

373 

mov 

r5,#00H 


004D 7E00 

374 

mov 

r6,#00H 


004F 120000 

F 375 

call 

SETUP TPHONE TIMEOUT 


376 ; 

0052 377 RECV_PHONE_DATA 11: ; Wait for the start bit 


0052 30000B 

F 

378 

jnb 

CTI_PTR_RXD, RECV_PHONE_DATA33 

0055 200003 

F 

379 

jb 

PTR_XFER_TIMEDOUT, RECV_PHONE_DATA22 

0058 2000F7 

F 

380 

jb 

CTI_PTR_RXD, RECV_PHONE_DATAl 1 


381 

* 

j 



005B 

382 

RECV_PHONE_DATA22: 

005B DCEE 


383 

djnz 

r4, RECV_PHONE_DATA00 

005D 20001B F 

384 

jb 

PTR_XFER_TIMEDOUT, RECV_PHONE_DATA_EXIT 


385 

• 

» 




386 

4 

» 

If all is well receive the PTR synchronous data 


387 

* 

1 



0060 

388 

RECV_PHONE_DATA33: 

0060 120000 

F 

389 

call 

PTR_RXD_CLOCK ; Wait for start 

0063 200015 

F 

390 

jb 

PTR_XFER_TI MEDOUT, RECV_PHONE_DATA_EXIT 

0066 120000 

F 

391 

call 

PTR_RXD_CLOCK ; Clock for the current bit 

xfer 

0069 20000F 

F 

392 

jb 

PTR_XFER_TIMEDOUT, REC V_PHONE_D AT A_EXIT 


393 

• 

* 



006C 

394 

RECV_PHONE_DATA44: 

006C A200 

F 

395 

mov 

c, CTI_PTR_RXD ; Send the current bit 

006E 13 

396 

rrc a 



; Send the current bit 
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DATE 




LOC OBJ LINE SOURCE 

006F 120000 F 397 call PTR_RXD_CLOCK ; Clokc for the current bit 

xfer 

0072 200006 F 398 jb PTR_XFER_TlMEDOUT, RECV_PHONE_DATA_EXIT 

0075 D500F4 F 399 djnz PTR_BIT_COUNT, RECV_PHONE_DATA44 

400 ; 

401 ; Wait one external clock cycle for PTR stop bit 

402 ; 

0078 120000 F 403 call PTR_RXD_CLOCK ; Clokc for the current bit 

xfer 

404 ; 

007B 405 REC V_PHON E_D AT A_EXIT: 


007B C2A9 

406 

clr 

XFER_TIMEOUT_INTERRUPT 

007D C200 F 

407 

clr 

PTR_XFER_ENABLED 

007FC28C 

408 

clr 

START_CTI_TIMEOUT 


0081 22 409 ret 

410 
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DATE 


LOC OBJ 


LINE SOURCE 


411 

SEJECT 

412 

* 

413 

;*< 

414 

; NAME: 

415 

V 

416 

; DESCRIPTION: 

417 

; CALL: 

418 

; ARGUMENTS: 

419 

; MODIFIES: 

420 

; RETURNS: 

421 

; HISTORY: 

422 

;*> 

423 

1 

424 

* 


0082 


425 

426 


TRANSFER PHONE DATA: 


0082 D200 F 

427 

setb 

ptr_xfer_enabled 

0084 750009 F 

428 

mov 

PTR_BIT_COUNT, #09H ; Start + Data bits count 

429 

• 

* 



0087 7D00 

430 

mov 

r5, #low PTR_EXCLK_TIMEOUT_CNT 

0089 7EEE 

431 

mov 

r6, #high PTR_EXCLK_TIMEOUT_CNT 

008B 120000 F 

432 

call 

SETUP_TPHONE_TIMEOUT 

008E C200 F 

433 

clr 

PTR_EDGE_DETECTED 

0090 D2A8 

434 

setb 

PTR_800_INTERRUPT 

0092 D2A9 

435 

setb 

XFER_TIMEOUT_INTERRUPT 

436 

• 



0094 437 XFER_PHONE_D AT A00: 

0094 200021 F 

438 

jb 

PTR_XFER_TIMEDOUT, XFER_PHONE_DATA_EXIT 

0097 3000FA F 

439 

jnb 

ptr_edge_detected, xfer_phone_dataoo 

440 

* 

* 



009A C2A9 

441 

clr 

XFER_TIMEOUT_INTERRUPT 

009C C2A8 

442 

clr 

PTR_800_I nterrupt 

009E C28C 

443 

clr 

START_CTI_TIMEOUT 

444 

• 

* 



00A0 120000 F 

445 

call 

PTR_TXD_CLOCK ; For positive edge sync 

00A3 200012 F 

446 

jb 

PTR_XFER_TIMEDOUT, XFER_PHONE_D AT A_EXIT 

00A6 C3 

447 

clr c 

; Clear for start bit 

448 

• 

i 



00A7 449 XFER_PHONE_DATAl 1: 

00A7 9200 F 

450 

mov 

CTI_PTR_TXD, c ; Send the current bit 

00A9 120000 F 

451 

call 

PTR_TXD_CLOCK ; Clokc for the current bit 

xfer 




00AC 200009 F 

452 

jb 

PTR_XFER_TIMEDOUT, XFER_PHONE_DATA_EXIT 

00 AF 13 

453 

rrc a 

i 

00B0 D500F4 F 

454 

djnz PTR_BIT_COUNT, XFER_PH0NE_DATA11 

455 

• 

t 



00B3 D200 F 

456 

setb 

CTI_PTR_TXD ; Set stop bit 

00B5 120000 F 

457 

call 

PTR_TXD_CLOCK ; Clock for the current bit 


xfer 


00B8 


458 


459 XFER_PHONE_DATA_EXIT: 

460 ; 

00B8C200 F 461 clr PTR_XFER ENABLED 




DATE 
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LOC OBJ 

LINE 

SOURCE 


00BA C28C 

462 

clr 

START_CTI_TIMEOUT 

00BC C2A8 

463 

clr 

PTR_800_I NTERRUPT 

00BE C2A9 

464 

clr 

XFER_TIMEO UT_I NTERR UPT 

00C0C3 . 

465 

466 ; 

clr 

c ; Clear for exit 

00C122 

467 

ret 



468 
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DATE 


LOC OBJ LINE SOURCE 


00C2 


469 

SEJECT 

470 

• 

t 

471 

;*< 

472 

; NAME: 

473 

» 

474 

; DESCRIPTION: 

475 

; CALL: 

476 

; ARGUMENTS: 

477 

; MODIFIES: 

478 

; RETURNS: 

479 

; HISTORY: 

480 

;*> 

481 

» 

482 

» 

* 


483 

484 


PTR RXD CLOCK: 


00C2 7D00 485 

00C4 7EEE 486 

00C6 120000 F 487 
00C9 D2A9 488 


mov r5, #low PTR_EXCLK_TIMEOUT_CNT 
mov r6, #high PTR_EXCLK_TIMEOUT_CNT 
call SETUP_TPHONE_TIMEOUT 
setb XFER TIMEOUT INTERRUPT 


489 ; 

00CB 490 PTR_RXD_CLOCK00: 

00CB 200014 F 491 jb PTR_XFER_TIMEDOUT, PTR_RXD_CLOCK_EXIT 

00CE 3000FA F 492 jnb CTI_PTR_EXCLK, PTR_RXD_CLOCK00 ; Check for 

clock LO 


clr XFER_TIMEOUT_INTERRUPT 
mov r5, #low PTR_EXCLK_TIMEOUT_CNT 
mov r6, #high PTR_EXCLK_TIMEOUT_CNT 
call SETUP_TPH0NE_T1ME0UT 
setb XFER_TIMEOUT_INTERRUPT 

00DC 500 PTR_RXD_CL0CK11: 

OODC 200003 F 501 jb PTR_XFER_TIMEDOUT, PTR_RXD_CLOCK_EXIT 

OODF 2000FA F 502 jb CTI_PTR_EXCLK, FIR_RXD_CLOCKll ; Check for 

clock HI 

503 ; 

00E2 504 PTR_RXD_CLOCK_EXIT: 

505 ; 

00E2 C2A9 506 clr XFER_TIMEOUT_INTERRUPT 

00E4 C28C 507 clr START_CTI_TIMEOUT 

00E6 22 508 ret 


493 


00D1 C2A9 
00D3 7DOO 
00D5 7EEE 
00D7 120000 
OODA D2A9 


499 


494 

495 

496 

497 

498 


509 
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DATE 


LOC OBJ LINE SOURCE 


510 

511 

SEJECT 

9 

1 

512 


513 ; 

514 

NAME: 

» 

> 

515 

DESCRIPTION: 

516 

CALL: 

517 

ARGUMENTS: 

518 

MODIFIES: 

519 

RETURNS: 

520 

HISTORY: 

521 

522 

523 

*> 


00E7 524 PTR_TXD_CLOCK: 

525 : 


00E7 7D00 526 

00E9 7EEE 527 

00EB 120000 F 528 
00EE D2A9 529 


mov r5, #low PTR_EXCLK_TIMEOUT_CNT 
mov r6, #high PTR_EXCLK_TIMEOUT_CNT 
call SETUP_TPHONE_TIMEOUT 
setb XFER TIMEOUT INTERRUPT 


530 ; 

00F0 531 PTR_TXD_CLOCKOO: 

00F0 200014 F 532 jb PTR_XFER_TIMEDOUT, PTR_TXD_CLOCK_EXIT 

00F3 2000FA F 533 jb CTI_PTR_EXCLK, PTR_TXD_CLOCKOO ; Check for 

clock HI 


00F6 C2A9 535 

00F8 7D00 536 

OOFA 7EEE 537 

OOFC 120000 F 538 
OOFF D2A9 539 


clr XFER_TIMEOUT_INTERRUPT 
mov r5, #low PTR_EXCLK_TIMEOUT_CNT 
mov r6, #high PTR_EXCLK_TIMEOUT_CNT 
call SETUP_TPHONE_TIMEOUT 
setb XFER TIMEOUT INTERRUPT 


540 ; 

0101 541 PTR_TXD_CLOCK 11: 

0101 200003 F 542 jb PTR_XFER_TIMEDOUT, PTR_TXD_CLOCK_EXIT 

0104 3000FA F 543 jnb CTI_PTR_EXCLK,PTR_TXD_CL0CK11 ; Check for 

clock LO 


0107 

0107 C2A9 
0109 C28C 
010B 22 


544 ; 

545 PTR_TXD_CLOCK_EXIT: 

546 clr XFER_TIMEOUT_INTERRUPT 

547 clr START_CTI_TIMEOUT 

548 ret 

549 

550 END 


; End of CTI_XFER.A51 


REGISTER BANK(S) USED: 0 

ASSEMBLY COMPLETE, NO ERRORS FOUND 




4S*f 








M50740 ASSEMBLER SYMBOL TABLES 


P. 001 


ACCESS_C1A67 

ACTIM 1E39 

ADMD 

003D 

ADMDBF 003E 

AIR TIME1D16 

B1 

1A74 

BLOX1 

1B01 

BUF 

1D8C 





BUF2 1D8D 

B_CLK 1D8E 

CALCNT 

1D97 

CALL_D AT 1C34 



C ALL_XFR 1D2B 

CC1 

1ADD 

CCC 

1C50 

CEL^NUM 

1C6B 


CHANGE 

1D16 

CHECK_D 

1BB7 

CLK_RD 

DFF4 CLK_WR 

DFF0 

CLRF1 

1AF5 

CLRAIR 

1D55 

COMM 1A7F 

CTABLE 

1BE3 


CURR_TIM1CAA 

CPTL 

1D99 

DATAR1C13 

DATE 

1D93 DEC 13 

1BA2 

DEC 14 

1BA5 

DIE 

1C32 

DONE_S 

IB AC 





DONE_S 1 

1BAC 

DONE_S2 

1BAD 

D_DATA 

1C26 ERECBUF 

0076 

ESOCNT 

0069 

EWDTBF 

0366 

EWDTRP 038E 

EWDTWP 

038F 










EX_PTR 

1BCD 

FLAG1 

002B 

FLAG11 

008A 

FLAG 15 

008E 

FLAG4 

1B50 

FLAG7 0086 

HOUR 

1D91 

INCOl 

1A48 




INCOM 1A3F 

INCOME 

1A46 

INC_CALL1A49 

INC_UP1 

1BC6 

IND110 

BD79 

INIT_CAL1B58 

IN_USE 1A20 

IN_USE001A35 




KYSEND 

D34B 

LB 

1B57 

LB1 

1B62 

LCOMM 1B6D 

LNDONE 

1B5A 

LNIB 

1B3C 

LOAK 

1B7E 

LOCK 

1E41 




LOCK1 1D03 

LOCKA1C80 

LOCKB 1C95 

LPNOV 1D59 

LS_ONE 

1B6B 



MBCDWG 1D03 MBC_SOFT1D03 MEM_FULL 1D7C 

MIN 1D90 MONTH 1D94 ND1 1AA9 ND7 1AA2 NDONE1A6C NIB1 

1B4B NOKIDT 0080 NOV_SOFTlCEE 
NUM_BYTE1D55 NUM_C ALL 1D2B OAK 1A90 P0WER_D01C31 

PROGRAM 1D55 PROG_PH 1CD3 PTR 1D40 PWR_DWN 1C31 

RD_NUM 1B1F RD_NXT 1B23 READ_CLK 1AA0 READCTP1B1F 

RESTART 1D11 RES_CALL1C55 RES_PTR 1C5E RET_USE 

1A63 

RET_USE11A3B RETJJSE21A5E RTS1 1B1E SB1 1AD6 SD_ONE 

1A7D SEC 1D8F SER_NUM 1CD3 SETF0 IAEA 

SET_TBL 1B86 SETTIME1CCB SNDK05 B8A7 STINDO 0025 

STORE 1D60 STORE 1 1B03 STORE_001D6D STORE_EXlD7B 

STO_BY 1D98 STR.NUM 1D55 TEL_SOFTlCD9 TIME_TBL1A98 

UNLOCK 1D0A USE OFF 1A4E VERSION 1D80 
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1 

Firmware 

2 

3 

4 

5 

6 
7 
S 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


Program Title: Cellular Telephone RAM Based Controller 

Filename : PTR_RAMC.ASM .. 

Module Name : PTR_RAMC.OBJ 

Project # : 

Author : Don Bloxson 

Date Created : September 9,1990 

Reviewed By : Theodore W. Watler 

From : Parchment Designs 

For : Turner, Gold, France & Associates 

Date Reviewed: August 1,8,1991 

Version : A.00 


COPYRIGHT (C) 1991. ALL RIGHTS RESERVED 
Turner, Gold, France & Associates 


PROGRAM FUNCTION 


PROGRAM DESCRIPTION 


REFERENCES 

1. Mitsubishi Semiconductors SERIES 740 Software User's Manual 

2. Mitsubishi Semiconductors M37450M2-XXXSP/FP User's Manual 

3. Miscellaneous development documents, TGF, NOVATEL, TELEMAC 
& Don Bloxson 

******** MODULE HISTORY ******** 

DPB 12-16-1990: 

Unkown modifications by Don Bloxson 
TWW 08-08-1991 

Organization & Partition of this module for clarity 
and obvious firmware problems identification 
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E SEQ. LOC. OBJ.*....l....*....2....*....SOURCE STATEMENT....5....*. 

44 .PAGE 

45 ; 

46 ; ROM CHANGES 

47 ; 

48 ; USE CHIP RAM AREA F0& FI FOR TEMP PTR LOCATION TO USE 
INDIRECT STORE 

49 ; 8090 & 8091 TO NOP TO DISABLE CHECK SUM (FIX LATER) 

50 ; AB22 TO JSR FF48, TO JMP 1400, X_RCV, RECEIVED BYTE FROM MBC 
THIS ALSO TAKES 

51 ; OUT AN INSTRUCTION THAT CAUSES THE PHONE TO ACT ON 

THE B YTE RECEIVED 

52 ; AB43 TO JMP "FFC7" TEST IF EXTERNAL SEND IN PROCESS, BYPASS 
"00" COMPARE 

53 ; SEE ROMMOD.ASM FOR JMP FFC7 

54 ; AB49 TO LDA #F00,X FROM LDA EWDTBF.X SO THAT IT POINTS TO 
THE PHONE BUFFER 

55 ; NOW JSR 1360 TO ALLOW OP CODE MOD FOR ADDRESS 

CHANGES 

56 ; AB84 TO JSR 1320 TO SEND NEXT BYTE IF NEEDED 

57 ; BA32 TO NOP NOP "ALLOWS ONLY 1 -9 PHONE STORAGE" 

58 ; B8A4TO JMP 1200 "TEST FOR IN COMING CALLS" 

59 ; BD66 TO JMP IN USE (ADR 1000) 

60 ; BD6A TO JMP USE_OFF (ADR FFB2 TO 1050) 

61 ; FFFE TO’INIT.CAL’ 


63 

i MiiiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiiiiiiiiiiittiiiiuiiuuniiiiiiHiiiiiiiiiiiiiiiiimttmMMmMmmtm 

64 




4S8 
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E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


65 

.PAGE 


66 

♦ 

• 

67 

; MEMORY CONSTANTS EQUATES 

68 

• 

» 


69 003E 

ADMDBF = 3 EH 

;PTR BUFFER 

70 0080 

NOKIDT = 80H 

;PTR AUDIO SETTINGS 

71 003D 

ADMD = 03DH 

;PTR AUDIO FLAGS 

' r 

72 1E39 

ACTIM = 1E39H 

;ACCUM TIMER LOCATION, ONE 

BYTE 



73 1E41 

LOCK = 1E41H 

;LOCK FLAG AREA 

74 0076 

ERECBUF = 76H 

;EXT DATA RECEIVE BYTE 

LOCATION 

75 0069 

ESOCNT = 69H 

;EXT SEND PROCESS CNTR 

76 038E 

EWDTRP = 38EH 

;EXT READ POINTER ? 

77 038F 

EWDTWP = 38FH 

;EXT WRITE POINTER 

78 0366 

EWDTBF = 366H 

;EXT SEND BUFFER 

79 D34B 

KYSEND = 0D34BH 

;SEND KEY SUB 

80 B8A7 

SNDK05 = 0B8A7H 

;CALLED AFTER SNDKY 

81 DFF4 

CLK_RD = 0DFF4H 

;CLOCK READ ADDRESS 

82 DFF0 

CLK_WR = 0DFF0H 

;CLOCK WRITE ADDRESS 

83 008A 

FLAG 11 = 8 AH 

;ZERO PAGE FLAG, BIT 0 SET MEANS 

INCOMING CALL 



84 0086 

FLAG7 = 86H 

;NOVATEL FLAGS 

85 BD79 

IND110 = 0BD79H 

;RETURN ADDRESS FOR IN_USE SUB 

86 0025 

STINDO = 25H 

;FLAG FOR IN_USE ILLUMNATION 

87 002B 

FLAG1 = 2BH 

;TELEMAC FLAGS, BIT 0 RESERVED 

FOR NOVATEL 

88 008E 

FLAG 15 = 8EH 

;TELEMAC FLAGS 0-7 

89 1D80 

VERSION = 1D80H 

LOCATION OF SOFTWARE VERSION 

NUMBER 

90 1D8C 

BUF = 1D8CH 

;WORKING AREA,USED TO STORE 

BYTE IN ACCESS. 

.CLK 


91 1D8D 

BUF2 = 1D8DH 

;DITTO 

92 1D8E 

B_CLK = 1D8EH 

;8 BYTE STORAGE BUFFER FOR 

CLK/CAL DATA 



93 

• 

» 


94 1D8F 

SEC = 1D8FH 

;TEMP BUF FOR SECONDS 

95 1D90 

MIN = 1D90H 

;TEMP BUF FOR MINUTES 

96 1D91 

HOUR = 1D91H 

;TEMP BUF FOR HOUR 

97 

;1D92H 


98 

» 

> 


99 1D93 

DATE = 1D93H 

;TEMP BUF FOR DATE 

100 1D94 

MONTH = 1D94H 

;TEMP BUF FOR MONTH 

101 

;1D95H 


102 

• 

* 


103 

;1D96H 

;HIGH BYTE OF CALL COUNTER 

104 1D97 

CALCNT = 1D97H 

;NUMBER OF PHONE CALLS SINCE 

DOWNLOADING 

105 

■ 


106 

;1D98H 

;OP CODE STA "8D" FOR SUB ROUTINE STORE 

107 1D99 

C_PTL = 1D99H 

;LOCATION OF PHONE POINTER, LOW 

BYTE 

108 

;1D9AH 

" " .HIGH BYTE 

109 

;1D9BH 

;OP CODE RTS "60” FOR SUB ROUTINE STORE 


I ‘ 





W3 

110 1BCD EX_PTR = 1BCDH ;*= CHANGES UPPER BYTE OF EX 

ADDRESS BYTE FOR OP CODE MOD 

111 
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112 

113 

114 

115 

116 

117 0F90EF 

118 


TMOD 

*= $0EF0 

*= S0F90 
.BYTESEF 


LOAD "TELEMAC" 

;STORE #1 RECALL NUMBER 


;FLAG FOR NO PHONE CALLS 
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E SEQ. LOC. OBJ.*....1...2....*.,..SOURCE STATEMENT....5....*. 

119 .PAGE 

120 ; 

121 *= $1A20 

122 ; *=$1000 

123 ; 

124 ;*< .. 

125 ; NAME: In Use 

126 ; 

127 ; DESCRIPTION: 

128 ; Function to process in use illumination 

129 ; 

130 ; CALL: 

131 ; ARGUMENTS: 

132 ; MODIFIES: 

133 ; RETURNS: 

134 ; HISTORY: 

135 ;*> 

136 ; 

137 IN_USE: 

138 ; 

139 1A2012 CLT ;WARNING, DOES NOT RESTORE 

140 1A21 472517 BBS 2,STINDO,RET_USEl ;PHONE UPDATES IN USE OFTEN 

141 1A24 C78E14 BBS 6,FLAG15,RET_USE1 ;MEMORY FULL 

142 1A27 78 SEI ;DISABLE INTR 

143 1A28 4F25 SEB 2.STINDO ;INUSEON 

144 1A2A 20671A JSR ACCESS_CLK ;READ AND STORE TIME/CAL 

145 1A2D 20A01A JSR READ_CLK 

146 ; 

147 ;«<TWW Aug-11-1991 Move this section of code from the end of the call 

(USE_OFF) 

148 ; As per GM request in case the battery is removed before 

149 ; ending the call, to account for call made count. 

150 ; 

151 1A30EE971D inc CALCNT ; TWW:Increment the call 

counter 

152 1A33F014 beq INC_CALLS_MSB ; TWW:If rollover carry 

to MSB 

153 ; 

154 IN_USE00: ; TWW:Retum here after count 

rollover 

155 ; 

156 ;>»TWW 


157 ; 

158 1A35 472B03 BBS 2,FLAG1,RET_USE1 INCOMING CALL 

159 1A38 201F1B JSR RD_NUM 

160 ; 

161 RET_USE1: 

162 1A3B4F25 SEB 2.STINDO ;INUSEON 

163 1A3D 8024 BRA RETJJSE 

164 ; 

165 INCOM: 

166 1A3F 078A04 BBS 0,FLAG11,INCOME ;*****COMES HERE WHEN THE SEND 

KEY IS PRESSED 

167 1A42 5F2B CLB 2,FLAG 1 

168 1A44 8002 BRAINCOl 





4 & 2 - 

169 ; 

170 INCOME: 

171 1A464F2B SEB 2.FLAG1 ;SET INCOMING FLAG 

172 


» 



463 
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E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 

173 1NC01: 

174 1A48 60 RTS 

175 '********************************************************* 

176 
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177 .PAGE 

178 ; 

179 ;*< 

180 ; NAME: 

181 ; 

182 ; DESCRIPTION: 

183 ; CALL: 

184 ; ARGUMENTS: 

185 ; MODIFIES: 

186 ; RETURNS: 

187 ; HISTORY: 

188 ;*> 

189 ; 

190 ; 

191 ;«<TWW Aug-11-1991 

192 ; 

193 INC_CALLS_MSB: 

194 1A49 EE961D inc CALCNT-1 ; TWW:Increment call 

count MSB 

195 1A4C80E7 bra INUSE00 ; TWW:Retum to 

complete function 

196 ; 

197 ;>»TWW 

198 
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E SEQ. LOC. OBJ.*....!....*....2....*....SOURCE STATEMENT....5....*. 


199 


.PAGE 


200 


*=$1050 

, 

201 




202 


*< 


203 


NAME: Use Off 


204 




205 


DESCRIPTION: 


206 


CALL: 


207 


ARGUMENTS: 


208 


MODIFIES: 


209 


RETURNS: 


210 


HISTORY: 

' 

211 


*> 


212 




213 

USE_OFF: 


214 

1A4E 12 

CLT 

•.WARNING, DOES NOT RESTORE 

215 

1A4F 57250C 

BBC 2,STINDO,RET_USE2 

216 

1A52 C78E09 

BBS 6.FLAG 15 .RETJJSE2 ;MEMORY FULL DO NOT STORE 

217 

1A55 78 

SEI 

;D1SABLE INTR 

218 

1A56 5F25 

CLB 2.STINDO 

;IN USE OFF 

219 

1A58 20671A 

JSR ACCESS_CLK 

;READ AND STORE TIME/CAL 

220 

1A5B 20A01A 

JSR READ.CLK 


221 

1 

1 

• 

222 

;«<TWW Aug-11-1991 

Move this section of code to the beginning of the 


call 


223 



As per GM request in case the battery is removed before 

224 



ending the call. 

225 




226 


INC CALCNT 

INCREMENT CALL COUNTER 

227 


BEQ CALCNT 1 

;MORE THAN 255? 

228 




229 

;»>TWW 


230 

i 

r 

f 


231 

RET_USE2: 


232 

1A5E203F1A 

JSR INCOM 

;FLAG FOR INCOMING CALLS 

233 

1A61 5F25 

CLB 2.STINDO 

;IN USE OFF 

234 

\ 

' 



235 

RET_USE: 


236 

1A63 58 

CLI 

;ENABLE INTR 

237 

1A64 4C79BD 

JMPIND110 


238 


» 

t 


239 

1 

,«<TWW Aug-11-1991 Moved to end of IN_USE function above 

240 


• 

t 


241 

■ 

.CALCNT 1: 


242 


INC CALCNT-1 

;UPPER 

243 

* 

BRA RETJJSE2 

244 


B 

1 


245 

< 

i 

;»>TWW 


246 
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247 


.PAGE 

248 

• 

» 


249 

• * 
* 

< 

250 

ft 

» 

NAME: 

251 

• 


252 

• 

* 

DESCRIPTION: 

253 

• 

f 

CALL: 

254 

• 

J 

ARGUMENTS: 

255 

ft 

* 

MODIFIES: 

256 

ft 

1 

RETURNS: 

257 

ft 

f 

HISTORY: 

258 

ft * 
* 

> 

259 

■ 


260 

ACCESS_CLK: 

261 

• 

* 


262 

1A67 ADF4DF 

LDA CLK_RD 

263 

1A6A A200 

LDX #0 

264 

ft 

» 


265 

NDONE: 

266 

1A6C BD981A 

LDA TIME_TBL,X 

267 

1A6F8D8C1D 

STABUF 

268 

1A72 A008 

LDY #8 

269 

• 

» 


270 

Bl: 

271 

1A74 8E8D1D 

STX BUF2 

272 

1A77 0304 

BBS 0,A,SD_ONE 

273 

1A79 A200 

LDX #0 

274 

1A7B 8002 

BRA COMM 

275 

ft 

> 


276 

SD_ONE: 

277 

1A7D A201 

LDX #1 

278 

ft 

> 


279 

COMM: 

280 

1A7F BDF0DF 

LDA CLK_WR,X 

281 

1A82 AE8D1D 

LDX BUF2 

282 

1A85 88 

DEY 

283 

1A86 C000 

CPY #0 

284 

1A88 D006 

BNE OAK 

285 

1A8A E8 

INX 

286 

1A8B E008 

CPX#8 

287 

1A8D DODD 

BNE NDONE 

288 

ft 

» 


289 

1A8F60 

RTS 

290 

ft 

7 


291 

OAK: 

292 

1A90 6E8C1D 

RORBUF 


;START SEQ BY A2 HIGH 
;TABLE POINTER 


;BIT CNTR 


;SAVE X 

;SEND ONE? 

;ACCESS CLOCK CHIP 


-.RESTORE X, TABLE POINTER 

;DONE WITH THIS BYTE? 

;INC TABLE POINTER 
;PONE? 


;ROTATE RIGHT ONE BIT 


293 1A93AD8C1D LDABUF 

294 1A96 80DC BRAB1 

295 
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296 


PAGE 

297 



298 

1 

*< 

299 

1 

NAME: 

300 

301 

4 

1 

DESCRIPTION: 

302 

4 

1 

CALL: 

303 

4 

1 

ARGUMENTS: 

304 

4 

1 

MODIFIES: 

305 

4 

1 

RETURNS: 

306 

4 

1 

HISTORY: 

307 

i 

1 

*> 

308 

4 

1 


309 

TIME_TBL: 

310 

1A98 C5 

.BYTE 0C5H 

311 

1A99 3A 

.BYTE 3 AH 

312 

1A9A A3 

.BYTE 0A3H 

313 

1A9B 5C 

.BYTE 5CH 

314 

1A9C C5 

.BYTE 0C5H 

315 

1A9D 3A 

.BYTE 3AH 

316 

1A9EA3 

.BYTE 0A3H 

317 

1A9F 5C 

.BYTE 5CH 

318 


1 

319 




;TABLE TO ACCESS TIME 




* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P.012 


E SEQ. LOC. OBJ.*....1....*....2..,.*....SOURCE STATEMENT....5....*. 

320 PAGE 


*< 

NAME: 

DESCRIPTION: 

CALL: 

ARGUMENTS: 

MODIFIES: 

RETURNS: 

HISTORY: 

*> 


333 

READ_CLK: 


334 

1AA0 A000 

LDY #0 

;BYTE CNTR 

335 

• 

» 



336 

ND7: 


337 

1AA2 A208 

LDX #8 

;BIT POINTER 

338 

1AA4 A900 

LDA #0 

;CLR BUFFER 

339 

1AA6 8D8C1D 

STABUF 


340 

• 

* 



341 

ND1: 


342 

1AA9 18 

CLC 

;CLR CARRY FLAG 

343 

1AAA6E8C1D 

RORBUF 

;ROTATE FOR NEXT BIT 

344 

1AAD ADF4DF 

LDA CLK_RD 

;READ DO 

345 

1AB0 2901 

AND #0000000IB 

;ISOLATE DO 

346 

1AB2 6A 

RORA 

;GET LSB TO MSBIT 

347 

1AB3 6A 

RORA 


348 

1AB4 0D8C1D 

ORA BUF 


349 

1AB7 8D8C1D 

STABUF 

;STORE 

350 

1ABA CA 

DEX 


351 

1ABB D0EC 

BNEND1 


352 

• 



353 

1ABD AD8C1D 

LDA BUF 


354 

1AC0 998E1D 

STA B_CLK,Y 

;STORE TIME DATA (TEMP) 

355 

1AC3 C8 

INY 

;BYTE CNTR 

356 

1AC4 C008 

CPY #8 

;EQUAL TO 8 BYTES 

357 

1AC6 D0DA 

BNE ND7 

;DONE WITH READ? 

358 

• 

1 



359 

1AC8 AD941D 

LDA MONTH 

;SQEEZE CLK/CAL DATA TO 5 BYTES 

360 

1ACB 8309 

BBS 4.A.SB1 

;SET BIT FOR 10 MONTHS 

361 

1ACD AD931D 

LDA DATE 


362 

1AD0 DB 

CLB 6 A 


363 

1AD1 8D931D 

STA DATE 


364 

1AD4 8007 

BRA CC1 


365 

• 

» 



366 

SB1: 


367 

1AD6 AD931D 

LDA DATE 


368 

1AD9 CB 

SEB 6A 


369 

1ADA 8D931D 

STA DATE 


370 

• 

» 




322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 
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371 


PAGE 


372 

• 

» 



373 

CC1: 


374 

1ADD 872B3E 

BBS 4PLAG1.RTS1 

;EX REQUEST, DO NOT STORE TIME 

375 

1AE0 772507 

BBC 3.STINDO.SETF0 

;SET ROAM BIT ?, FLAG 0 

376 

1AE3 AD931D 

LDA DATE 


377 

1AE6 EB 

SEB 7,A 

;SET ROAM BIT 

378 

1AE7 8D931D 

STA DATE 


379 

♦ 

i 



380 

SETF0: 


381 

IAEA 643E 

TST ADMDBF 

;BEEP ON? 

382 

1AEC F007 

BEQ CLRF1 


383 

1AEE AD911D 

LDA HOUR 


384 

1AF1 EB 

SEB7.A 


385 

1AF2 8D911D 

STA HOUR 


386 

■ 

J 



387 

CLRF1: 


388 

1AF5 AD941D 

LDA MONTH 

;SET UPPER NIBBLE TO MONTH FOR INUSE 

389 

1AF8 472506 

BBS 2,STINDO,BLOX 1 

;FIX DO NOT TEST THIS BIT 

390 

1AFB 290F 

AND #0000111 IB 

;CLR BIT 4 

391 

1AFD 09E0 

ORA #11100000B 

;INUSE OFF SET TO "E" 

392 

1AFF8002 

BRA STORE 1 


393 

• 

* 



394 

BLOX1: 


395 

1B01 09F0 

ORA#11110000B 

;INUSE ON SET TO "F" 

396 

• 

* 



397 

STORE1: 


398 

1B03 2060ID 

JSR STORE 

;STORE DATA, STORE SQUEEZED CLK/CAL 

TO RAM 



399 

1B06 AD931D 

LDA DATE 

;INC PTR 

400 

1B09 2060 ID 

JSR STORE 


401 

1B0C AD911D 

LDA HOUR 


402 

1B0F 2060 ID 

JSR STORE 


403 

1B12 AD901D 

LDA MIN 


404 

1B15 20601D 

JSR STORE 


405 

1B18 AD8F1D 

LDA SEC 


406 

1B1B 20601D 

JSR STORE 


407 

• 

J 


1 * 

408 

RTS1: 


409 

IB IE 60 

RTS 



410 

411 


» 




I 


470 


* M50740 RELOCATABLE ASSEMBLER V.2.13C * P. 014 


E SEQ. LOC. OBJ.. 

* 1 * 9 * 

SOURCE STATEMENT....5....*. 

412 

PAGE 

. 

413 

» 

• 

414 

;*< 


415 

; NAME: 

• 

416 

i 

1 * 

417 

; DESCRIPTION: 


418 

; CALL: 


419 

; ARGUMENTS: 


420 

; MODIFIES: 


421 

; RETURNS: 


422 

; HISTORY: 


423 

;*> 

- 

424 

* 


425 

READ_CTPHONE_NUMBER: 

426 

RD_NUM: 


427 1B1FA208 

LDX #8 

;OFFSET FROM 394 

428 


;ODD/EVEN NIBBLE 

429 1B213F2B 

CLB 1.FLAG1 

;PHONE UPDATES "IN USE" OFTEN 

430 

• 

t 


431 

RD_NXT: 


432 1B23 BD9403 

LDA 394H.X 

;READ NUMBER 

433 1B26 29F0 

AND #0F0H 

;CHECK UPPER NIBBLE "4" 

434 1B28C940 

CMP #40H 


435 1B2AD024 

BNEFLAG4 

TERROR "4" NOT IN UPPER NIBBLE 

436 

• 

* 


437 1B2C BD9403 

LDA 394H.X 

;GET NUMBER 

438 1B2F290F 

AND #0FH 

;STRIP UPPER NIBBLE (4) 

439 1B31 272B08 

BBS lJLAGLLNIB 

;LOWER NIBBLE? 

440 1B34 18 

CLC 

;CLEAR CARRY FLAG BEFORE ROTATE 

441 1B35 2A 

ROLA 

;MOVE LOWER NIBBLE TO UPPER NIBLLE 

442 1B36 2A 

ROL A 


443 1B37 2A 

ROLA 


444 1B38 2A 

ROLA 


445 1B39 48 

PHA 

;SAVE ACC 

446 1B3A800F 

BRA NIB1 


447 

a 

i 


448 

LNIB: 


449 1B3C 8D8C1D STABUF 

;ADD LOWER NIBBLE 

450 1B3F68 

PLA 


451 1B40 0D8C1D 

ORA BUF 


452 1B43 20601D 

JSR STORE 

- 

453 1B46 3F2B 

CLB 1.FLAG1 


454 1B48E8 

INX 


455 1B49 80D8 

BRARD.NXT 


456 

a 

> 


457 

NIB1: 


458 1B4BE8 

INX 


459 1B4C2F2B 

SEB 1.FLAG1 

;SET LOWER NIBBLE FLAG 

460 1B4E80D3 

BRA RDNXT 



461 
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462 PAGE 

463 .********************************************************* 

464 FLAG4: 

465 1B50372B04 BBC lpLAGl,LB ;LOWER NIBBLE? 

466 1B53 68 PLA 

467 1B54 20601D JSR STORE 

468 ; 

469 LB: 

470 1B57 60 RTS 

471 



47Z 
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E SEQ. LOC. OBJ.*....1...2....*....SOURCE STATEMENT....5....*. 


472 


.PAGE 

* 

473 

ft 

j 


1 - ( 

474 

• * 
* 

< 

- 

475 

• 

* 

NAME: 


476 

ft 



477 

ft 

J 

DESCRIPTION: 


478 

• 

CALL: 


479 

• 

ARGUMENTS: 


480 

ft 

J 

MODIFIES: 

- 

481 

• 

J 

RETURNS: 


482 

ft 

» 

HISTORY: 


483 

** 

» 

> 


484 

ft 

* 



485 

INIT_CAL: 

0.0 AD CLK/CAL 

486 

1B58 A200 

LDX #0 

;TABLE POINTER 

487 

ft 

i 



488 

LNDONE: 


489 

1B5A BD861B 

LDA SETTBL.X 


490 

1B5D 8D8C1D 

STABUF 


491 

1B60 A008 

LDY #8 

;BIT CNTR 

492 

ft 

J 


- 

493 

1B62 8E8D1D 

LB1: STXBUF2 

;SAVEX 

494 

1B65 0304 

BBS 0,AJLS_ONE 

;SEND ONE ? 

495 

IB67 A200 

LDX #0 


496 

1B69 8002 

BRA LCOMM 


497 

ft 

» 



498 

LS_ONE: 


499 

1B6B A201 

LDX #1 


500 

• 

* 



501 

LCOMM: 


502 

1B6D BDF0DF 

LDA CLK_WRX 


503 

1B70 AE8D1D 

LDX BUF2 

;RESTORE X, TABLE POINTER 

504 

1B73 88 

DEY 


505 

1B74 C000 

CPY #0 

;DONE WITH THIS BYTE? 

506 

IB76 D006 

BNELOAK 


507 

1B78 E8 

INX 

0NC TABLE POINTER 

508 

1B79E008 

CPX#8 

;DONE? 

509 

1B7B DODD 

BNE LNDONE 


510 

ft 

» 



511 

1B7D60 

RTS 

;TEST ONLY, ONE SUB IN REAL VERSION 

512 

ft 

i 



513 

LOAK: 


514 

1B7E 6E8C1D 

ROR BUF 

;ROTATE RIGHT ONE BIT 

515 

1B81 AD8C1D 

LDA BUF 


516 

1B84 80DC 

BRA LB1 


517 
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518 

PAGE 

519 


520 

*< 

521 

NAME: 

522 


523 

DESCRIPTION: 

524 

CALL: 

525 

ARGUMENTS: 

526 

MODIFIES: 

527 

RETURNS: 

528 

HISTORY: 

529 

*> 

530 


531 


532 SETTBL: 

533 1B86 00 

.BYTE 00000000B 

534 1B87 00 

.BYTE 00000000B 

535 1B88 45 

.BYTE 01000101B 

536 1B89A5 

.BYTE 10100101B 

537 1B8A17 

.BYTE 0001011 IB 

538 1B8B22 

.BYTE 0010001OB 

539 1B8C09 

.BYTE00001001B 

540 1B8D90 

.BYTE 10010000B 

541 



;SET TIME, SEE PG 64 OF THE 

;1987 DATA BOOK, DALLAS SEMI 

;MINUTES 

; 12/24 SELECT 

;RESET/DAY 

;DATE 

;MONTH 

;YEAR 





t * 


47f 
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542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 


BUF2 

*** 



563 

* 

* 

*= 1320H 

* 

564 

1B94 3C0069 

LDM #0ESOCNT 

;RESTORE ROM PATCH 

565 

1B97 772B13 

BBC 3,FLAGl,DONE_S2 

;INIT BY PTR800 OR TELEMAC 

566 

1B9A AD8C1D 

LDABUF 

;NEXT BYTE TO SEND 

567 

1B9D CD8D1D 

CMPBUF2 


568 

1BA0 F015 

BEQ CHECK_D 

;DONE SENDING? 

569 

• 



570 

DEC13: 


571 

1BA23A 

INCA 


572 

IB A3 F021 

BEQ INC.UPl 


573 

• 

* 



574 

DEC 14: 


575 

1BA5 8D8C1D 

STA BUF 


576 

1BA8 8D8E03 

STA EWDTRP 


577 

1BAB60 

RTS 


578 

• 



579 

DONE_S: 

* 

580 

DONE_Sl: 

_ 

581 

IB AC 68 

PLA 

;RESTORE STACK FROM CHECL_D ROUTINE 

582 

4 

1 



583 

DONE_S2: 


584 

1BAD A900 

LDA #$00 

;CLEAR EXT WRITE POINTER (NO VATEL) 

585 

1BAF 8D8E03 

STA EWDTRP 


586 

1BB2 7F2B 

CLB 3,FLAG 1 

;DONE TELEMAC EXT SEND 

587 

1BB4 9F8E 

CLB 4.FLAG15 


588 

1BB6 60 

RTS 


589 





.PAGE 

J 

;*< 

; NAME: 

; DESCRIPTION: 

; CALL: 

; ARGUMENTS: 

; MODIFIES: 

; RETURNS: 

; HISTORY: 

;*> 

.********************************************************* 

; *= 1200H .FLAG TELLS IF CALL WAS INCOMING 

;TEMP, COMES HERE WHEN SEND KEY IS PRESSED 
1B8E 204BD3 JSR KYSEND ;RESTORE, FROM ,, B8A4'' 

1B914CA7B8 JMPSNDK05 -.RESTORE 

.******** EXTERNAL SEND ROUTINE HERE. REAL! ******* 

.****** ADDRIN EWDTRP + BUF FROM EX_PTR & LSB END OF ADDR IN 
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590 

PAGE 

591 


592 

*< 

593 

NAME: 

594 


595 

DESCRIPTION: 

596 

CALL: 

597 

ARGUMENTS: 

598 

MODIFIES: 

599 

RETURNS: 

600 

HISTORY: 

601 

*> 

602 

P 

603 CHECK D: 


PHA ;SAVE ACC 

BBC 4,FLAG15,DONE_S ;NOT PHONE NUMBER DOWN LOAD 

LDA EX PTR 


CMP C_PTL+1 
BEQ DONE_S 
PLA 

BRA DEC 13 


;UPPER BYTE OF PTR = ALSO? 


604 1BB7 48 

605 1BB8 978EF1 

606 1BBB ADCD1B 

607 1BBE CD9A1D 

608 1BC1F0E9 

609 1BC3 68 

610 1BC4 80DC 

611 ; 

612 INCJLJPl: 

613 1BC6EECD1B INCEX_PTR 

614 1BC9 80DA BRA DEC 14 

615 

616 ; *= 1360H 

617 .******* LOCATION TO POINT TO BEGINNING OF BUFFER FOR 
EXTERNAL OUT ***** 

618 1BCB BD000F LDAS0F00H.X 

619 1 BCE 60 RTS 

620 


;INC UPPER BYTE OF DATA POINTER 
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E SEQ. LOC. OBJ.SOURCE STATEMENT....5....*. 

621 .PAGE 

622 ; 

623 ;*< 

624 ; NAME: 

625 ; 

626 ; DESCRIPTION: 

627 ; CALL: 

628 ; ARGUMENTS: 

629 ; MODIFIES: 

630 ; RETURNS: 

631 ; HISTORY: 

632 ;*> 

633 ; 

634 ; *= 1400H 

635 

636 1BCF A78E41 BBS 5,FLAG15,DATAR ;SET CLOCK DATA BYTE? 

637 1BD2 0A ASLA ;MULTIPLY BY TWO 

638 1BD3AA TAX ;MOVEATOX 


639 1BD4 BDE31B LDA CTABLEX ;ASSUME COMMAND IN X REG 

640 1BD7 8D8C1D STABUF 

641 1BDABDE41B LDA CTABLE+1X 

642 1BDD 8D8D1D STABUF+1 

643 1BE06C8C1D JMP(BUF) 

644 
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E SEQ. LOC. OBJ.. 

645 

646 

647 

648 

649 

650 1BE3 6B1C 

651 1BE5 341C 

652 1BE7AA1C 

653 1BE9CB1C 

654 1BEBD31C 

655 1BED551D 

656 1BEFD91C 

657 1BF1EE1C 

658 1BF3 031D 
TO RESPOND 

659 1BF5 031D 
TO RESPOND 

660 1BF7 031D 

661 1BF9 0A1D 

662 1BFB 161D 

663 1BFD 161D 
COUNTER 

664 1BFF311C 

665 1C012B1D 

666 1C03 401D 

667 1COS 55 ID 
ROM 

668 1C07 551D 

669 1C09 5E1C 

670 1C0B551C 

671 1C0D551D 

672 1C0F801C 

673 1C11951C 

674 


*....1....*....2....*....SOURCE STATEMENT....5....*. 


.PAGE 


. ** *** *** * * * * *** * * * * **** *** * * ** * * ** * *** * ** ** * * * *** **** * ** * 
* 

; COMMAND TABLE (FROM MBC) 

.***********************%********************************* 


CTABLE: .WORD CEL_NUM 


.WORD CALL_DATA 

;i, 

.WORD CURR_TIME 

;2, 

.WORD SET_TIME 

;3, 

.WORD PROG_PH 

;4, 

.WORD NUM_BYTES 

;5, 

.WORD TEL_SOFT 

;6, 

.WORD NOV_SOFT 

;7, 

.WORD MBC_SOFT 

;8, 


;0, PHONE’S PHONE NUMBER 
SEND CALL DATA 
CURRENT TIME AND DATE 
SET TIME AND DATE 
REPROGGRAM PHONE 
TURN MBC CRADLE OFF (MBC) 
TELEMAC SOFTWARE VERSION 
PTR800 SOFTWARE VERSION 
MBC SOFTWARE VERSION, MBC 


.WORD MBCDWG 


;9, MBC HARDWARE VERSION, MBC 


.WORD LOCK1 
.WORD UNLOCK 
.WORD CHANGE 
.WORD AIR TIME 


;A, LOCK THE PHONE 

;B, UNLOCK THE PHONE 
;C, TBD 

;D, SEND CUMLATIVE AIR TIME 


.WORD PWR_DWN 
.WORD NUM_CALLS 
.WORD PTR 
.WORD PROGRAM 


;E, POWER DOWN PHONE, TBD 
;F, PHONE CALL COUNTER 
; 10, SEND POINTER 

;11, PROGRAM PHONE, LOCATE IN 


.WORD STR_NUM 
.WORD RES_PTR 
.WORD RES_CALL 
.WORD CLR_AIR 
.WORD LOCKA 
.WORD LOCKB 


;12, MBC ONLY 

;13, RESET MEMORY PTR (SEE #10) 
;14, RESET CALL CNTR 
;15, RESET CUMULATIVE AIR TIMER 
;16, SEND LOCK A CODE 
; 17, SEND LOCK B CODE 
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675 


.PAGE 


676 




677 


*< 


678 


NAME: 


679 




680 


DESCRIPTION: 


681 

- 

CALL: 


682 


ARGUMENTS: 


683 


MODIFIES: 


684 


RETURNS: 


685 


HISTORY: 


686 


*> 


687 


t 


688 

DATAR: 


689 

1C13 AE8C1D 

LDXBUF 

;STORE DATA 

690 

1C16C9FF 

CMP #0FFH 

;TIMEOUT ERROR SENT BY THE MBC 

691 

1C18F017 

BEQ PWR_DWN 


692 

1C1A9D861B 

STA SET_TBL,X 


693 

1C1DE8 

INX 


694 

1C1EE008 

CPX#8 

;DONE? 

695 

1C20 F004 

BEQ D_DATA 


696 

1C22 8E8C1D 

STXBUF 


697 

1C25 60 

RTS 


698 


1 


699 

D_DATA: 


700 

1C26 BF8E 

CLB 5.FLAG15 

;YES 

701 

1C28 78 

SEI 

;DISABLE INTR 

702 

1C29 20671A 

JSR ACCESS.CLK 

;ACCESS CLOCK CHIP 

703 

1C2C20581B 

JSRINITCAL 

;TEMP 

704 

1C2F 58 

CLI 

ENABLE INTERRUPTS 

705 

1C30 60 

RTS 


706 







P.023 


479 
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707 PAGE 

708 ; 

709 ;*< 

710 ; NAME: 

711 ; 

712 ; DESCRIPTION: 

713 ; CALL: 

714 ; ARGUMENTS: 

715 ; MODIFIES: 

716 ; RETURNS: 

717 ; HISTORY: 

718 ;*> 

719 ; 

720 POWER_DOWN: 

721 PWR_DWN: 

722 1C3178 SEI 

723 ; 

724 DIE: 

725 1C32 80FE BRA DIE 

726 


; Infinite LOOP, Interrupts Disabled 




4&o 
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E SEQ. LOC. OBJ.*....1...2....*....SOURCE STATEMENT....5....*. 


727 


.PAGE 

728 

* 

y 


729 

* 

*< 

730 

• 

) 

NAME: 

731 

« 


732 

• 

l 

DESCRIPTION: 

733 

• 

* 

CALL: 

734 

» 

* 

ARGUMENTS: 

735 

* 

> 

MODIFIES: 

736 

• 

* 

RETURNS: 

737 

• 

* 

HISTORY: 

738 


*>, 

739 

« 

* 


740 

CALL_DATA: 

741 

1C34 A90F 

LDA#0FH 

742 

1C36 8DCD1B 

STA EX_PTR 

743 

1C39 A990 

LDA #90H 

744 

1C3B 8F8E 

SEB4.FLAG15 

745 

1C3D 6F2B 

SEB 3.FLAG1 

746 

1C3F 8D8C1D 

STABUF 

747 

748 

1C42 8D8E03 

STA EWDTRP 

749 

1C45 AD991D 

LDA C_PTL 

750 

1C48 C990 

CMP #90H 

751 

1C4A D004 

BNE CCC 

752 

1C4C 8D8D1D 

STABUF2 

753 

754 

1C4F60 

RTS 


;SET UPPER BYTE OF POINTER 
STARTING POINT OF PHONE MEMORY 
;TELEMAC SEND EXT FLAG 


;GET LOW BYTE OF PHONE POINTER 


;STORE TO KNOW WHEN DONE 
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755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 1C501A 

770 1C51 8D8D1D 

771 1C54 60 

772 

773 


PAGE 

*< 

NAME: 

DESCRIPTION: 

CALL: 

ARGUMENTS: 

MODIFIES; 

RETURNS: 

HISTORY: 

*> 

CCC: 

DEC A 
STA BUF2 
RTS 
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E SEQ. LOC. OBJ.* ...l....*....2....*....SOURCE STATEMENT....5... 

774 PAGE 

775 ; 

776 ;*< 

777 ; NAME: . 

778 ; 

779 ; DESCRIPTION: 

780 ; CALL: 

781 ; ARGUMENTS: 

782 ; MODIFIES: 

783 ; RETURNS: 

784 ; HISTORY: 

785 . ;*> 

786 ; 

787 RES .CALL: 

788 1C55A900 LDA#$00 ;RESET CALL CNTR 

789 1C57 8D971D STACALCNT 

790 1C5A 8D961D STA CALCNT-1 

791 1C5D60 RTS 

792 ; 

793 
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E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 

794 .PAGE 

795 ; 

796 ;*< 

797 ; NAME: 

798 ; 

799 ; DESCRIPTION: 

800 ; CALL: 

801 ; ARGUMENTS: 

802 ; MODIFIES: 

803 ; RETURNS: 

804 ; HISTORY: 

805 ;*> 

806 ; 

807 RES_PTR: 

808 1C5EA990 LDA#$90 

809 1C60 8D991D STAC_PTL 

810 1C63A90F LDA #$0F ;RESET POINTER 

811 1C65 8D9A1D STAC_PTL+1 

812 1C68DF8E CLB 6.FLAG15 ;CLEAR MEMORY FULL FLAG 

813 1C6A60 RTS 

814 
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815 


PAGE 

816 

ft 

> 


817 

• ♦ 
* 

< 

818 

• 

» 

NAME: 

819 

a 


820 

ft 

i 

DESCRIPTION: 

821 

• 

CALL: 

822 

ft 

i 

ARGUMENTS: 

823 

ft 

* 

MODIFIES: 

824 

• 

y 

RETURNS: 

825 

* 

y 

HISTORY: 

826 

* 

> 

827 

» 


828 

■ 

* 


829 

CEL_NUM: 

830 

1C6B A91F 

LDA#1FH 

831 

1C6D 8DCD1B 

STA EX_PTR 

832 

1C70 A953 

LDA #53H 

GH BYTE PAGE) 


833 

1C72 6F2B 

SEB 3,FLAGI 

834 

1C74 8D8C1D 

STA BUF 

835 

1C77 8D8E03 

STA EWDTRP 

836 

1C7A A959 

LDA #$59 

837 

1C7C 8D8D1D 

STA BUF2 

838 

1C7F 60 

RTS 


839 

840 


RHONE'S PHONE NUMBER 

;SET UPPER BYTE OF POINTER 
STARTING ADDR OF CALL PTR (MUST IN IF 

I * 

;TELEMAC SEND EXT FLAG 

;ENDING ADDR OF CALL PTR 
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E SEQ. LOC. OBJ.2....*....SOURCE STATEMENT....5....*. 


841 


PAGE 

842 

• 

J 


843 

• t 

t 

< 

844 

• 

* 

NAME: 

845 

• 

* 


846 

• 

* 

DESCRIPTION: 

847 

• 

f 

CALL: 

848 

• 

ARGUMENTS: 

849 

% 

y 

MODIFIES: 

850 

♦ 

i 

RETURNS: 

851 

m 

y 

HISTORY: 

852 

• * 
y 

> 

853 

• 

y 


854 

LOCKA: 

855 

1C80 A91F 

LDA #1FH 

856 

1C82 8DCD1B 

STA EX_PTR 

857 

1C85 A95F 

LDA #5FH 

HIGH 

BYTE PAGE) 


858 

1C87 6F2B 

SEB 3 .FLAG 1 

859 

1C89 8D8C1D 

STA BUF 

860 

1C8C 8D8E03 

STA EWDTRP 

861 

1C8F A961 

LDA #$61 

862 

1C91 8D8D1D 

STA BUF2 

863 

1C94 60 

RTS 

864 

« 

y 


865 




;SET UPPER BYTE OF POINTER 
STARTING ADDR OF CALL PTR (MUST IN IF 

;TELEMAC SEND EXT FLAG 

;ENDING ADDR OF CALL PTR 
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E SEQ. LOC. OBJ.*....2....* 


866 

867 

868 

• 

* 

j 

.PAGE 

*< 

869 

• 

» 

NAME: 

870 

871 

a 

a 

1 

DESCRIPTION: 

872 

1 

CALL: 

873 

a 

t 

ARGUMENTS: 

874 

a 

/ j 

MODIFIES: 

875 

a 

> 

RETURNS: 

876 

a 

J 

HISTORY: 

877 

V 

*> 

878 

a 

1 


879 

LOCKB: 

880 

IC95 A91F 

LDA#1FH 

881 

1C97 8DCD1B 

STA EX_PTR 

882 

1C9A A964 

LDA#64H 

GH BYTE PAGE) 
883 1C9C6F2B 

SEB 3 .FLAG 1 

884 

1C9E 8D8C1D 

STABUF 

885 

1CA1 8D8E03 

STA EWDTRP 

886 

1CA4 A966 

LDA #$66 

887 

1CA6 8D8D1D 

STA BUF2 

888 

1CA9 60 

RTS 


889 

890 


;SET UPPER BYTE OF POINTER 
STARTING ADDR OF CALL PTR (MUST IN IF 

;TELEMAC SEND EXT FLAG 

;ENDING ADDR OF CALL PTR 
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891 

892 

ft 

V 

PAGE 

• 

893 

• * 
» 

< 

- 

894 

ft 

y 

NAME: 


895 

896 

ft 

ft 

y 

DESCRIPTION: 


897 

ft 

y 

CALL: 


898 

a 

f 

ARGUMENTS: 


899 

ft 

* 

MODIFIES: ' 


900 

■ 

J 

RETURNS: 


901 

ft 

y 

HISTORY: 


902 

y 

> 


903 

904 

a 

* 

CURR_TIME: 

;CURRENT TIME AND DATE 

905 

1CAA 78 

SEI 

;DISABLE INTR 

906 

1CAB 8F2B 

SEB 4 .FLAG 1 

;DO NOT STORE TIME IN CALL MEMORY 

907 

1C AD 20671A 

JSR ACCESS_CLK 

; ACCESS CLOCK CHIP 

908 

1CB0 20A01A 

JSR READ_CLK 

;READ CLOCK, STORE DATA IN 

909 

1CB39F2B 

CLB 4.FLAG1 


910 

1CB5 A91D 

LDA #1DH 


911 

1CB78DCD1B 

STA EX_PTR 

;SET UPPER BYTE OF POINTER 

912 

1CBA A98E 

LDA #8EH 

STARTING ADDR 

913 

ICBC 6F2B 

SEB 3 .FLAG 1 

;TELEMAC SEND EXT FLAG 

914 

1CBE 8D8C1D 

STA BUF 


915 

1CC1 8D8E03 

STA EWDTRP 


916 

1CC4 A996 

LDA #$8E+8 

ENDING ADDR 

917 

1CC6 8D8D1D 

STA BUF2 


918 

1CC958 

CLI 

;ENABLE INTERRUPTS 

919 

1CCA 60 

RTS 


920 

921 

ft 

y 
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922 


.PAGE 

923 


» 

924 


;*< 

925 


; NAME: 

926 


* 

927 


; DESCRIPTION: 

928 


; CALL: 

929 


; ARGUMENTS: 

930 


; MODIFIES: 

931 


; RETURNS: 

932 


; HISTORY: 

933 


;*> 

934 


1 

935 


SET.TIME: 

936 

1CCB AF8E 

SEB 5,FLAG 15 

937 

1CCD A200 

LDX #0 

938 

1CCF 8E8C1D STX BUF 

939 

1CD2 60 

RTS 

940 

941 


ft 

» 


SOURCE STATEMENT....5....*. 


;SET TIME AND DATE 
;STORE INIT DATA AREA 






48 ? 
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E SEQ. LOC. OBJ.*....l....*....2....*....SOURCE STATEMENT....5....*. 

942 .PAGE 

943 ; 

944 ;*< 

945 ; NAME: 

946 ; 

947 ; DESCRIPTION: 

948 ; CALL: 

949 ; ARGUMENTS: 

950 ; MODIFIES: 

951 ; RETURNS: 

952 ; HISTORY: 

953 ;*> 

954 ; 

955 SER.NUM: ;RTS PHONE'S SERIAL NUMBER 

956 PROG_PH: ;ALLOWS REPROGGRAMMING OF PHONE 

957 1CD3A900 LDA #00H ;PUT 0 WHERE "V" WAS 

958 1CD5 8D801D STA$1D80 

959 1CD8 60 RTS 

960 ; 

961 






* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 034 


490 


E SEQ. LOC. OBJ....2...*....SOURCE STATEMENT....5....*. 


962 


.PAGE 


963 




964 


*< 


965 


NAME: 


966 




967 


DESCRIPTION: 


968 

• 

CALL: 


969 


ARGUMENTS: 


970 


MODIFIES: 


971 


RETURNS: 


972 


HISTORY: 


973 


*> 


974 


t 


975 

TEL_SOFT: 

;TELEMAC SOFTWARE VERSION 

976 

1CD9 A91D 

LDA#1DH 


977 

1CDB 8DCD1B STA EX_PTR 

;SET UPPER BYTE OF POINTER 

978 

1CDE A980 

LDA #80H 

STARTING ADDR OF VERSION NUMBER 

(MUST IN OF HIGH BYTE PAGE) 


979 

1CE0 6F2B 

SEB 3.FLAG1 

;TELEMAC SEND EXT FLAG 

980 

1CE2 8D8C1D 

STA BUF 


981 

1CE5 8D8E03 

STA EWDTRP 


982 

1CE8 A98C 

LDA #8CH 

;ENDING ADDR OF VERSION NUMBER 

983 

1CEA 8D8D1D STABUF2 


984 

ICED 60 

RTS 



985 

986 





* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P.035 



E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


987 


PAGE 

988 



989 


*< 

990 


NAME: 

991 



992 


DESCRIPTION: 

993 


CALL: 

994 


ARGUMENTS: 

995 


MODIFIES: - 

996 


RETURNS: 

997 


HISTORY: 

998 


*> 

999 



1000 

NOV_SOFT: 

1001 

1CEE A9FF 

LDA#0FFH 

1002 

1 CFO 8DCD1B ST A EX_PTR 

1003 

1CF3 A9D0 

LDA #0D0H 

(MUST IN OF HIGH BYTE PAGE) 

1004 

1CF5 6F2B 

SEB 3,FLAG 1 

1005 

1CF7 8D8C1D 

STA BUF 

1006 

1CFA 8D8E03 

STA EWDTRP 

1007 

1CFD A9D6 

LDA #0D6H 

1008 

1CFF 8D8D1D STABUF2 

1009 

1D02 60 

RTS 

1010 


k 

» 

1011 

MBC_SOFT: ;RTS 

RESPOND 


1012 

MBCDWG: ;RTS 


RESPOND 

1013 

1014 


;PTR800 SOFTWARE VERSION 

;SET UPPER BYTE OF POINTER 
STARTING ADDR OF VERSION NUMBER 

;TELEMAC SEND EXT FLAG 

;ENDING ADDR OF VERSION NUMBER 

MBC SOFTWARE VERSION, MBC TO 
MBC HARDWARE VERSION, MBC TO 




* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 036 





E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 1D03A901 

1030 1D05 8D411E 

1031 1D08 8007 

1032 

1033 


PAGE 

;*< 

; NAME: 

» 

; DESCRIPTION: 
; CALL: 

; ARGUMENTS: 

; MODIFIES: 

; RETURNS: 

; HISTORY: 

;*> 

* 

LOCKl: 

LDA#1 
STA LOCK 
BRA RESTART 


;LOCK THE PHONE 
;PWR UP 





* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 037 


493 


E SEQ. LOC. OBJ.*....L...*....2....*....SOURCE STATEMENT....5....*. 

1034 .PAGE 

1035 ; 

1036 ;*< 

1037 ; NAME: 

1038 ; 

1039 ; DESCRIPTION: 

1040 ; CALL: 

1041 ; ARGUMENTS: 

1042 ; MODIFIES: 

1043 ; RETURNS: 

1044 ; HISTORY: 

1045 ;*> 

1046 ; 

1047, 1D0A A900 UNLOCK: LDA #0 ;UNLOCK THE PHONE 

1048 1D0C 8D411E STALOCK 

1049 1D0F 8000 BRA RESTART 

1050 ; 

1051 


;PWR UP 





* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 038 


444 / 


E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 


PAGE 


*< 

NAME: 


; DESCRIPTION: 

. ; CALL: 

; ARGUMENTS: 

; MODIFIES: 

; RETURNS: 

; HISTORY: 

• 

RESTART: 

ID 11 68 PLA 

ID 12 68 PLA 

ID 13 4C0080 JMP8000H 


CHANGE: ;RTS 


;RESTORE STACK, PROBABLY NOT NEEDED 


CHANGE MANUAL LOCK CODE 





* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 039 



E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


1073 

PAGE 


1074 



1075 ; 

*< 


1076 

NAME: 


1077 



1078 

DESCRIPTION: 

- 

1079 

CALL: 


1080 ; 

ARGUMENTS: 

- 

1081 ; 

MODIFIES: 


1082 ; 

RETURNS: 


1083 ; 

HISTORY: 


1084 ; 

*> 


1085 



1086 AIR_TIME: 

;SEND CUMLATIVE AIR TIME 

COUNTER 


• 

1087 1D16A91E 

LDA #1EH 


1088 1D18 8DCD1B STAEXJPTR 

;SET UPPER BYTE OF POINTER 

1089 1D1BA939 
HIGH BYTE PAGE) 

LDA #39H 

STARTING ADDR OF AIR TIME (MUST IN OF 

1090 1D1D6F2B 

SEB 3.FLAG 1 

;TELEMAC SEND EXT FLAG 

1091 1D1F 8D8C1D STABUF 


1092 1D22 8D8E03 

STA EWDTRP 


1093 1D25A940 

LDA #$38+8 

;ENDING ADDR OF AIR_TIMER 

1094 1D27 8D8D1D STA BUF2 


1095 1D2A 60 

RTS 


1096 

• 

> 

* 

1097 







4% 


* M50740 RELOCATABLE ASSEMBLER V.2.13C * P. 040 


E SEQ. LOC. OBJ.*....2....*....SOURCE STATEMENT....5....*. 


1098 


.PAGE 


1099 

• 

» 



1100 

;*< 


• 

1101 

• 

y 

NAME: 


1102 

• 



1103 

« 

f 

DESCRIPTION: 


1104 

a 

CALL: 


1105 

a 

* 

ARGUMENTS: 


1106 

a 

y 

MODIFIES: 


1107 

a 

y 

RETURNS: 


1108 

a 

* 

HISTORY: 


1109 

;*> 



1110 

a 

» 



1111 

CALL_XFR: ;RTS 

FORCE PHONE TO CALL TRANSFER 

MODE? 



1112 

NUM_CALLS: 

;PHONE CALL COUNTER 

1113 

1D2B A91D 

LDA #1DH 

.1 

1114 

1D2D 8DCD1B 

STA EX.PTR 

;SET UPPER BYTE OF POINTER 

1115 

1D30 A996 

LDA #96H 

STARTING ADDR OF CALL CNTR (MUST IN 

2D HIGH BYTE PAGE) 



1116 

1D32 6F2B 

SEB 3 .FLAG 1 

;TELEMAC SEND EXT FLAG 

1117 

1D34 8D8C1D 

STA BUF 


1118 

1D37 8D8E03 

STA EWDTRP 

* 

1119 

1D3A A998 

LDA #$96+2 

RENDING ADDR OF CALL CNTR 

1120 

1D3C 8D8D1D 

STA BUF2 


1121 

1D3F 60 

RTS 


1122 

a 

» 



1123 
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P.041 


497 


E SEQ. LOC. OBJ.*....l....*....2....*....SOURCE STATEMENT....5....*. 


1124 

• 

.PAGE 


1125 

ft 

7 



1126 

• sfc 

f 

< 

- 

1127 

* 

* 

NAME: 


1128 

7 



1129 

* 

7 

DESCRIPTION: 

1 * 

1130 

ft 

* 

CALL: 


1131 

• 

7 

ARGUMENTS: 


1132 

• 

7 

MODIFIES: 


1133 

« 

7 

RETURNS: 


1134 

• 

* 

HISTORY: 


1135 

* * 
7 

> 


1136 




1137 

PTR: 

;SEND POINTER 

1138 

1D40 A91D 

LDA #1DH 


1139 

1D42 8DCD1B 

STA EX_PTR 

;SET UPPER BYTE OF POINTER 

1140 

1D45 A999 

LDA #99H 

STARTING ADDR OF CALL PTR (MUST IN OF 

HIGH BYTE PAGE) 



1141 

1D47 6F2B 

SEB 3.FLAG 1 

;TELEMAC SEND EXT FLAG 

1142 

1D49 8D8C1D 

STA BUF 


1143 

1D4C 8D8E03 

STA EWDTRP 


1144 

1D4F A99B 

LDA #$9B 

;ENDING ADDR OF CALL PTR 

1145 

1D51 8D8D1D 

STA BUF2 

* 

1146 

1D54 60 

RTS 


1147 

ft 

7 



1148 

PROGRAM: ;RTS 

PROGRAM PHONE. LOCATE IN ROM 

1149 

NUMJBYTES: 


1150 

STR_NUM: ;RTS 

SAVE A BYTE, STORE PHONE IN 

LOCATION 1-9 




1151 

1152 





490 


* M50740 RELOCATABLE ASSEMBLER V.2.13C * P. 042 


E SEQ. LOC. OBJ.*....1.2....*..„SOURCE STATEMENT....5....*. 

1153 .PAGE 

1154 ; 

1155 ;*< 

1156 ; NAME: 

1157 ; 

1158 ; DESCRIPTION: 

1159 . ; CALL: 

1160 ; ARGUMENTS: 

1161 ; MODIFIES: 

1162 ; RETURNS: 

1163 ; HISTORY: 

1164 ;*> 

1165 ; 

1166 CLR_AER: ;RESET CUMULATIVE AIR TIMER 

1167 1D55A900 LDA#0 

1168 1D57A208 LDX#8 

1169 ; 

1170 LPNOV: 

1171 1D59CA DEX 

1172 1D5A 9D391E STA ACTIM.X 

1173 1D5DD0FA BNE LPNOV 

1174 1D5F60 RTS 

1175 





* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 043 


E SEQ. 

LOC. OBJ.. 

1..2... 

......SOURCE STATEMENT....5....*. 

1176 


PAGE 



1177 

1 




1178 

;*< 




1179 

» 

NAME: Store 



1180 

V 




1181 

t 

DESCRIPTION: 



1182 

\ 

Store a byte of call data in 

RAM for the current activity 

1183 

t 



1184 

* 

CALL: 



1185 

» 

INC_UP: To increment the upper address byte value 

1186 

V 

MEM_FULL: To Lock the phone when call data ceiling reached 

1187 

» 




1188 

* 

ARGUMENTS: 



1189 

» 

Byte of data to be stored 


1190 




* 

1191 


MODIFIES: 



1192 

» 

RETURNS: 



1193 

» 

HISTORY: 



1194 

» 

TWW:Aug-09-1991. To modify the call ceiling data 

1195 

;*> 




1196 





1197 

t 


1198 

• 

» 

STORE BYTE (IN ACC) POINTED TO BY C_PTL 

1199 

t 


1200 

• 

J 




1201 

STORE: 



1202 

1D60 2098 ID 

jsr 

STO_BY 

; STORE BYTE IN ACC 

1203 

1D63 EE991D 

inc 

C_PTL 

; Increment pointer low address 

byte 





1204 

♦ 

V 

beq 

INC.UP 

; ROLL OVER? 

1205 

♦ 

* 




1206 

;«<TWW Aug-09-1991 Test for data ceiling at 0xl9EC 

1207 

• 




1208 

ceiling 

1D66 D005 

bne 

STORE_00 

; TWW:If not Z are we at the 

1209 

1D68 EE9A1D 

inc 

C_PTL+1 

; TWW:Increment call 

data address MSB 




1210 

1D6B 800E 

bra 

STORE_EXIT 

; TWW:On to the next 

1211 

• 




1212 

STOREJM): 



1213 

1D6D A9ED 

Ida 

#0EDH 

; TWW:LSB of call data ceiling 

1214 

1D6F CD991D 

cmp 

C_PTL 

; TWWxompare that lower byte 

1215 

1D72 D007 

bne 

STORE_EXIT 

; TWW:On to the next 

1216 

1D74 A919 

Ida 

#19H 

; TWW:MSB of call data ceiling 

1217 

1D76 CD9A1D 

cmp 

C_PTL+1 

; TWWxompare that 

upper byte 




1218 

1D79F001 

beq 

MEM_FULL 

; TWW:Hit the call ceiling. Lock 

Up!!! 

• 




1219 

• 




1220 

;«<TWW 



1221 

• 

» 




1222 

STORE_EXIT: 



1223 

1D7B60 

rts 


1 - 

1224 










* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P.044 


soo 


E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


1225 

PAGE 

1226 

» 

1227 

;*< 

1228 

; NAME: 

1229 

* 

1230 

; DESCRIPTION: 

1231 

; CALL: 

1232 

; ARGUMENTS: 

1233 

; MODIFIES: 

1234 

; RETURNS: 

1235 

; HISTORY: 

1236 

;*> 

1237 

> 

1238 

;INC_UP: 

1239 

; inc C_PTL+1 

POINTER 


1240 

; Ida #1AH 

1241 

; cmp C_PTL+1 

1242 

; beq MEM_FULL 

1243 

* 

1244 

; rts 

1245 



;INC UPPER BYTE OF 

% - 

;OUT OF MEMORY? 

; Memory full. Lock it!!! 






* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P. 045 


SO/ 


E SEQ. LOC. OBJ.*....1....*....2....*....SOURCE STATEMENT....5....*. 


1246 

PAGE 


1247 


. 

1248 

;*< 


1249 

; NAME: 


1250 



1251 

; DESCRIPTION: 


1252 

; CALL: 

* 

1253 

; ARGUMENTS: 


1254 

; MODIFIES: 


1255 

; RETURNS: 


1256 

; HISTORY: 


1257 

;*> 


1258 



1259 

MEM_FULL: 


1260 


- 

1261 

; seb 6JFLAG15 

;SET MEMORY FULL FLAG 

1262 

; jsr CLR.AIR 


1263 1D7C 4C031D jmp LOCK1 

;LOCK PHONE 

1264 

• 

* 


1265 1D7F60 

rts 



1266 





so 2- 


* M50740 RELOCATABLE ASSEMBLER V.2.13C * 


P.046 


E SEQ. LOC. OBJ.. 


.*.... L...*....2....*....SOURCE STATEMENT....5....*. 


1267 

1268 

1269 

1270 
DATE 


.PAGE 

j 

*= $1D80 

1D80 56312E30 .BYTE 'Vl.O 17DEC90’ 

1D84 20313744 
1D88 45433930 


1271 

1272 

1273 

1274 

1275 

1276 

1277 
STORE 

1278. 

1279 
STORE 

1280 
1281 
1282 

1283 

1284 

1285 

1286 


1D96 0000 


1D98 8D 

1D99 9OOF 
1D9B 60 


*= $1D96 
.WORD $00 

*= $1D98 
STO_B Y: 

.BYTE $8D 

.WORD SE0O+400 
.BYTE $60 


SOFTWARE VERSION NUMBER AND 


;INIT CALL COUNTER 


;OP CODE STA, FOR SUBROUTINE 

;INIT PHONE # POINTER 
;OP CODE RTS, FOR SUBROUTINE 


> * * * * * * * * * * 5ft * * * * * * * * * * * * * * * * * * * * % * * * * * * * * 3fc sjc * * * * ifc * ifc ifc * * * * ifc * * 

r 

; RECEIVED DATA BYTE FROM MBC (IN ACC) 

.4«3f£4e3|cs|c3fe3ie3|c3fc5tc3fe3fc3fc3|c3tc3|c3fc3#e%4c3#e3tc%%^c3tc%3tc3|c4c3tc3fe4c3fe3(c3(c3|e3|e3|c3|e4cs|c3f;5tc54e3|eafeafc3|c4c3fcafc3fc3fc3tc3fe4c 

I 

; SEE FILE ROMMOD.ASM 


.END 


ERROR COUNT 00000 
TOTAL LINE 01286 LINES 
COMMENT LINE 00799 LINES 
OBJECT SIZE 00883 BYTES 






j 

i 


convert * c 


.$03 


PURPOSE; Converts a sequentia 1 ’ C 1 file database to a Delimited Ascii 

Database, ' 

REQUIRES: A premade template file. 

example file template format : 


* <- This is a remark 
A1 1 

* a field of chars 11 Iona 
F 

* a float 4 bytes long 
A1 

* a c ha r 1 byt e 1 on g 
etc . , 

* describes the data base 


Written By : Greg McGregor 1990 


Revised? 


What was revised? 


GMM 8 
GMM 8 
GMM 8 
GMM 0 
GMM 8 


7-1991 
7-1991 
11-1991 
26—1991 
30-1991 


GMM 9-4-1991 
GMM 9-16-1991 


Changed deliminator to command line option - VI.01 

Added dates to template file VI.02 

VI.03 don't worry about padded fields from ascii to c 

Creates file 'OK' on successful conversion 

Pause for 2 seconds on successful convertsion 

to see screen 

VI.07 Byte count fix on converting to C 
VI,09 Bug in get ascii_token 


-.*/ 


extern unsigned _stklen = 54321U; 


ftinclude 
^include 
ft i n c 1 u d e 
ftinc1ude 
ftinc1ude 
ftinc1ude 
ftinc1ude 
ft i n c 1 u d e 
ftinclude 


<stdio.h> 
<std1ib.h> 
<dos.h> 

< d i r . h > 
<conio.h> 

<io.h> 

<fcnt1.h> 
<sys\stat* . h> 
<string.h> 


ftinclude <\h2\hdr\gkeys.h> 
ftinclude <\h2\hdr\windows.h> 


3 windef main_win = { 10,7,70, 12,White,Blue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

W h i t e , B1 u e } ; 

! 

J 

windef usage_win = {5,3 ,7 5, 20, White, Red , FALSE, FALSE, FALSE, TRUE,SI NGLEFRAME , 
i White,Red}; 

| windef title_win = {10,2,70,4,White,Blue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

Whi te , 81 ue} ; 

* 

<--W 

! windef action_win = {10,15,70,23,White,Blue,FALSE.RAISE,FALSE,T RUE ,SINGLEFRAME, 

White,81ue}; 

wi ndef done_win = { 5 , 9 , 75 , 1 3 , Whi te, Magenta , FALSE , FAI SE , FAl SE, TRUE , SIN6LEFRAME , 

White,Magenta}; 




J tintype ma in_wt,tit1 e_wt, act ion_wt, cione_wt, usage_wt ; 


soy 


* char conversion_t:ype [ 10]-; 

‘1 char tempi a te_f i 1 a [00]; 

| char file_name [00]; 
j char new_file [00]; 

! long unsigned recs_converted = 0; 
| long unsigned size_of_fi1e; 
long unsigned nuinber_of_recs; 
int temp 1 a t e _s i z e ; 
int number_of_fields =0; 
int word_align = TRUE; 


-( 


char field_separator[1]; . 
long unsigned rec_num “ 0; 
long unsigned bytes_read = 0; 
long unsigned address_pointer = 0; 
long unsigned bytes_aligned = 0; 
long unsigned del ated_records = 0; 


i 



i char template [500] [00]; /* template file in memory */ 

| char *get ascii_tokan(char buff[],int reset_val); 


ma i n 


4 


I 




J 


l 

t 

*1 


1 

l 


* 


1 


I 


* 

* 

l 

i\ 

1 


. i 

4 


1 

\ 

i 

* * 
i 

3 

i 

.1 


i 

i 

1 

" f 
I 

i 

i 

■* 

■4 

I 

1 

4 

* 

1 

A 

i 

« 

* 

« 

j 


l 

j 

i 

t 

* 

I 

i 

t 

4 


i 


(int argc.char *argv[]) { 

setcursortype ( NOCURSOR); 




* 


r 


delay (0); j 

if (argc != 6) { : 

delay(0); ‘ 

/*buzz (); */ * 

c 1 rscr ( ) ; ;• 

ruff area ( 1 , 1 , 00,?3,White,Blue); \ 

usage_wt ~ windowopen (&usage_win); ? 

settitle (usage_wt, 11 Inval id Usage ! " , CenterUpparTi11 e) ; j 

clrscr (); ! 

cprintf ( "CONVERT" ) ; j- 

l 

gotoxy (1,2); ; 

cprintf (“VI.09"); i 

gotoxy (1,4); j 

cprintf- ("USAGE: Convert [To Type) [Template] [File Name] [New Name];-, 
gotoxy (1,6); f 

cprintf (" Required: 11 ); > 

gotoxy (1,7); 
cprintf (“ 
gotoxy (1, 8 ) ; 
cprintf (“ 
gotoxy (1, 9) ; 
cprintf (" 
gotoxy (1,10); 
cprintf (" 
gotoxy (1,11); 
cprintf (“ 
gotoxy (1,13); 

cprintf ("PURPOSE: Converts From ASCII DataBases To ’C 
gotoxy (1,14); 

cprintf (“ And Vica Versa"); 

gotoxy (1,15); 
cprintf ("GMK 1991"); 

_setcursortype (_N0RMALCURS0R); 
window (1,1,80,25); 
textcolor (White); 


* 

To Type - A = Convert To ASCII, C = Convert To | 

• i 

* 

l 

Template - Template File Name"); 

* 

File Name - File Name To Convert"); ■ 

j 

t 

t 

New Name - File To Produce, Output"); 

Field Seperator - 0 = ’, 1 1 = ’ | 1 , 2 = 1 . 1 " ); 







text background (Black); 
gotoxy (1,24); 
exit (0); 


SOS’ 




.1 

i 


' i 

j 

i 

* f 

f 

i 

i 

4 

i 

+ 

j 

i 

.1 

( 

1 

i 



} 


strcpy (conversion type,argv[1]); 
strcpy (templatefi1e,argv[2)); 
strcpy (file_name,argv[3]); 
strcpy (new f i 1 e., argv[41 ) ■ 
if (argv[5][0] == ’O') { 

field_seperator[0] = ' , ' ; 

} e 1 s e 

if (argv[5][0] == '1') { 

fieldseperator[0] = ' | ' ; 

} else 

if (argv[5][0] == 1 2 1 ) { 

f ielci_seper^tor [0] = ' . ' ; 

} else { 

clrscr ( ) ; 

printf ("ERROR; In field seperator , 
exit (0 ) ; 

} 

init_template ( ) ; 
start^process () ; 


Valid inputs are 0, 




i 

; ahoh 

4 



l void ahoh (void) 

\ { 

i sound (200); 

j delay (150); 

5 nosound(); 

| delay (20); 

: sound (150); 

; delay (250); 

nosound (); 


-*/ 


] /*_ 

i n i t _ tempi a te 

; init_template () { 

.■ i n t i 
j int j; 

j for (i = 0;i<500;i++) 

for (j=0; j<10; j++) 

i template[i ] [j] = '\0'; 

i } 


_ 

start 

start 


_process 


process () { 

ruff_area (1,1,80,25,White,Blue); 
titlewt = windowopen (&tit1e_win); 
settitie (title_wt,"Convert - Version 
clrscr ( ) ; 

cprintf (” “ " 


1 . 09“ , CenterUpperTi11e); 


1 , 2 ") 


--*/ 


*/ 


CON 


V E R 


T “ ) ; 









1 main_wt = w i ncibwo pen (iyma i n win); - t 

*j settitle (ma i n_wt, " Process ", Cent erUpper T i 11 e) ; '5&6> 

• action_wt - windowopen (&action_win) ; 

j settitle *(action_wt, "Action" , CentertipperTi11 e) ; 

{ 1 ^ ((conversion_type[0] ~= 'A') || (conversion_type[0J == ) 

do_process_a?cii (); ‘ 

if ((conversion_type[0] ==“ 'C') || (conversion type[0] == *0*1 1 

j do_process_c (); 

i c1ose_all_windows (); 

i window (1,1,80,25); 

textbackground (Black); 

I textcolor (White); 

1 c1rscr (); 

1 printf ( \n ERROR : In Command Line Parameters!")• 

4 

f 

1 

•' / ^_ 

M * * 1 * »•* WV ~l I I - 11r 

*** W «*■* 'taw 

■ null data 


• nu 11 _data (char- *s,int len) { 
int i; . 

; for (i=0;i<len;i++) 

s[1] = * \ 0 ' ; 

; } 


s /*•- 

! pad field 


j pad _f 1 eld (char *s , int len) { 
l "int i , J ; 

; 1 = 0 ; 

; while (s[i] != '\0’) ++1 ; 

; for (j=i;j<1en-1;j++) 

! S [ i ] = ' ’ ; 


-*/ 


-*/ 



calc size 


I ca1c_size ( ) { 

J int i ; 

] char temp[80]; 



—*/ 


? 


} 


numberof fields = 0; 
tempiate_size = 0; 
i =0 ; 

while (tempi ate[i][ 0] ) { 

strcpy (temp,tempi ate[i]); 
if (temp[0] == 'A') { 

temp[0] = 'O'; 

tempiate_size += atoi (temp); 
++number_of_fields; 

} . 

if (temp[0J == 'F') { 

tempiate_s1ze += sizeof (float); 
++number_of_fields; 

} 


+ +i ; 

} 

use (actionwt); 
gotoxy (1,3); 

cprintf ("Record Size -> %d", tempi ate size); 








— */ 
# 


* 

- do_process_c 

* do_process_c () { 

; int i ( new_line ( j; 

{ char s[10000] ; 
j int pos ~ 0; 
l int value; 

\ FI IF *fd; * 

! int fdl; ‘ 

j char buff [10000],ch; 
j int s t a t; 

**. float f 1 ; 

; chan temp[255],temp2[255],t [80] ; 
char *p; 

int ok,end_of^record; 

. "long unsigned records_processed = 0; 

long unsigned unused^bytes = 0; 

| long unsigned bytes^produoed = 0; 
j int actual_number_of_fields = 0; 

i 

j fd ■= fopon (fi1e_name,“ rb+" ); 

■; if (fd == NULL) 

quit (-4); 

fdl = open (newfile, O GREAT | OBINARY I n WRONLY 

; if (fdl == -i ) 

quit (-3); 
show_tech (); 

] read_in_template (); 

; ca1c_s1ze (); 


^07 


0_TRUNC,S_I WRITE) ; 


gotoxy (30,4); 

cpnintf ("Bytes Produced -> %lu",bytes_produced); 
gotoxy (1,6); 

if (wordalign) 

cprintf ("Word Alignment [ON]"); 
if (!word_a1ign ) 

cpnintf ("Word Alignment [OFF]"); 


nu11_data (buff,10000); 
actual _.number_of _f ields = 0; 
while (fgets (buff,10000,fd) ) { 

actual_numben_of_fields = 0; 
/* fonmat_line (buff); */ 
temp[0] = 1; 
temp[1] = '\0'; 
new_line = TRUE; 
i = 0; 


addness pointer = 0; 


ok = TRUE; 


end_of_necord = FALSE; 

while (template[i][0] != '\0') { 

if (ok) { 

null_data (temp,255); 
null_data (temp2,255); 
if (new_line) { 


p = get_ascii_token 
new_line = FALSE; 


(buff,TRUE); 


} else p = get_ascii_token (buff,FALSE); 
strcpy (temp.p); 
ok = FALSE; 


++actual_numben_of fields; 

} 

if (temp'late[i ] [0] == 'A') { 

strcpy (temp2,tempi ate[ 1 ]) ; 
temp2[0] = ’0'; 
value = atoi (temp2); 






stat = write (fdl,temp,value); 
if (stat == -1) 

quit (-6); 

addresspointer += value; 
bytesproduced += value; 
ok = TRUE; . 

} 

/*treat dates as strings NO FORMATING */ 
if (temp 1 ate[i][0] == ’O’) { 

nulldata (t,80); 

j = 1; /* get field length */ 

while (template[i)[j] != ’:') { 

= template[i][j]; 

+ *-J ; 

if (J>50) quit (-2,1); 

} 

value = atoi (t); 
addresspointer += value; 
bytes_produced += value; • 
if (stat == -1) 

quit (-5); . 

++J ; 

null data (t,80); 
pos = 0; 

while (tempi ate[i] [j] != ':') { 

switch (tempi ate[1) [J)){ 

case ' M ’; 

t[2] =buff[pos++l; 
t[3] =buff[pos++j; 
break; 

case 'V’; 

t[0] =buff[POS++j; 
t[1] =buff[pos++]; 
break; 

case 'O'; 

t[4] =buff[pos++]; 
t[5] =buff[pos++]; 
break; 

} 

++J'; 

} 

stat = write (fdl,t.value); 
ok = TRUE; 

} ■ 
if (tempi ate[i)[0] == 'F' ){ 

if ( (address_pointer % 2) != 0) { 

if (word_align) { 
ch = ' ' ; 

stat = write (fd1,&ch,1); 
if (stat == -1 ) 

quit (-6); 

-* +address_poi nter ; 
++unused_bytes; 

> 

} 

fl = (float) atof (temp); 
stat = write (fd1,&f1.sizeof (float)); 
if (stat == -1) 

quit (-6); 

value = sizeof (float); 
addresspointer += value; 
bytes_produced += sizeof (float); 
ok = TRUE; 

} 

if (strncmp (tempiate(i], "WORD ON “ , 7) == 


0 ) 
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wordalign = TRUE; “— 

if (strncmp (template[iJ,"WORD OFF”,8) == 0) 
word_a1ign = FALSE; 

++i ; 

} 

if ( (address_pointer % 2) l= 0) { 

Ch = 1 ’ ; 

++address_pointer; 

++unused_bytes; 

stat = write (fd1,&ch,1) ; 

if (stat --= -1 ) 

quit (-6); 

++bytes_produced; 

} 

nul1_ d a t a■ (buff,10000); 
new 'line = TRUE; 

++records_processed; 
use (action_wt); 
gotoxy (30,2); 

cprintf ( Records converted -> %lu“,records processed) 
gotoxy ( 30 , .3); 

cprintf ("Record Size -> %lu",address pointer)- 

gotoxy (1,4); 

4 +actual__number_of_f 1 elds; 

cprintf ("Number of Fields -> Usd", number of fields)- 
if (word_align) { 

gotoxy (1,7); 

cprintf ("Unused Bytes Used For Word Alinnment 

} else { 

gotoxy (1,7); 

cprintf ("No Unused Bytes! (Compact Data)"); 
gotoxy (30,4); 

cprintf ( Bytes Produced —> % 1u“,bytes_produced); 




-> %’l u" , unc 


} 

nuinber_ of _recs = records_processed ; 
deletedrecords = 0; 
fclose (fd) ,- 
close (f d1); 
quit (1); 


formatline : reset field delimiators to hex 1 


format_line (char *s) { 

in t i,pos,k,j; 

int va1; 

float f1; 

char temp [ 1 00) ,- 



1 = 0 ; 
pos = 0; 

while (template[i] [0] ! = ’\o’) { 

if (tempi ate[i] [0] == ’A') { 

strcpy (temp,template[i] ) ; 
temp[0j = 'O'; 
val = atoi (temp); 
pos += val; 
j = pos; 

while ( (s[j) != f ie'l d __seperator [0] ) && (s[j) != ' \n ’ ) ) 

++j ; 

s tJ) = OxlB; /* reset field deliminator to hex IB ESC */ 
pos += J-pos; 

■+•+pos; /* start of next field */ 






if (template[i][0] == ' F ' ) { 

pos += sizeof (float); 
j = pos; 

while ( (s[j] != f i el d.seperator [0] ) &St (s[j) != ' \n 

++j ; 

s[J] = OxlB; 
pos += j-pos; 

++POS; 

} 

++i; 

} 

s[pos] = OxIC; /* EOL char */ 


1 



j g e t _a sc 1 i t; o ken 


char *gat_asci i _token(char *buf f , int reset_val ) { 
1 static int pos ~ 0; 
j char data [500]; 

| int i; 




*/ 

/* 



if (reset_va1) /* reset if requested */ 

pos = 0; 

i = 0; 

null_data (data,500); 

while ( (buff [pos] !“ f ield^seperator [0] ) && (buff [pos] != ' \n ' ) &.&. 

(buff[pos] != *\0') ) { 
if (buff[pos] != '\n') { 

data[i] = buff[pos]; 

++i ; 

} 

++pos; 

} /* skip space between two records */ 

if (buff[pos] != field_seperator[0]) { 

i = 0; 

null_data (data,500); 

while (buff[pos] ! = field_seperator[0]) 

++pos; 

4-+pos; /* to get past the field seperator */ 

while (buff[pos] != field_seperator[0]) { 

data[i] = buff[pos]; 

• +■ + i ; 

++pos; 

} 

} 

4+pos; /* to get past deliminator */* 

if (buff[pos] == 0x18) t+pos; /* get ready for next token */ 
if (buff [pos] — 0x10) 

data[0] = 0x10; /* signal end of record */ 

return data; 



nul1_to_space 

nu11_to_space (char *s,int pos,int 
int i ; 


for 


} 


( i ~pos;i< = pos + run;i++) 
if (s[1] == *\0’) 

s[i] = * ' 


run ) 
{ 



1 ) ) 







do_process_ascii 

do_process_ascii () { 
int i , j ; 
char s[10000]; 
int pos ■= 0; 

FILE *fd; 
int value; 
int fd1; 

char buff [1000], ch; 
int s t a t; 
float fl; 
char temp[00]; 

long unsigned bytes_produced = 0; 
char t[90],tl[00]; 

fd = fopen (new file, M wb+"); 
if (fd == NLJLL)"{ ■ 

quit (-3); 

} 

f dl “ open (f i le name, ORDONLY 


0 _B J. NARY , S 


j 

* 

i 




St 


4 

\ 

i 

j ./*-- 

| do process ascii 


i do_process_ascii () { 

1 int i,j; 
j char s[10000]; 
i int pos =0; 
j FILE *fd; 

1 int value; 
int fdl; 

char buff [1000],ch; 

'int stilt; 

= float fl; 
char temp[80]; 

long unsigned bytes_produed = 0; 

• char t [8 0] , 11 [8 0] ; 

f'd = fopen (new_file, ”wb+“); 
if (fd == NULL) { 

: quit (-3); 

; } 

, "fdl = open (f i le_name, 0_RD0NLY | 0_B.INARY, S IREAD)- 

; if (fdl == -1 ) 

quit (-4); 



show_tech ( ) ; 
read_in tempi ate (); 
c a 1 c _ s i 7 . e ( ) ; 

size_of_file = filelength (fdl); 
if (size_of_file == -1 ) 
quit (-5); 

number_of_recs = size_of_file / template_size; 
use (action_wt); 
gotoxy (30,3); 

cprintf ("Number of Records -> %1u", number_of_recs ) ; 
gotoxy (1,4); 

cprintf ("Number of Fields -> %d",numberof_fields); 
gotoxy (30,4); 

cprintf ("Bytes Produced -> %1u",bytes_produced); 
gotoxy (1,6); 
if (word_align) 

cprintf ("Word Alignment [ON]"); 
if (!worda1ign) 

cprintf ("Word Alignment [OFF]"); 

loop: while (rec_num < number_of_recs) { 

nul1 data (s,10000); 


i = 0; 

pos = 0 ; 

address_pointer = 0; 

while (template[i][0] != '\0 

if (template[i)[0] = 

/* 

s[pos] = ' “ ' 


-+-+JJOS.;_ 


) { 

1 A* ) 


T 





"V 

strcpy (temp,tempiate[i]); 
temp[0] = 1 0 * ; 

value = atoi (temp); 
null_data (buff,1000); 
stat = read (fdl,buff,value); 
bytes_read += stat; 
if (stat == -1) 

quit (-5); 
strcat (s,buff ) ; 
null m to_space (s,pos,value); -/* zap out nulls in fi 

pos += value; 

/* 

s[pos] = f " ' ; 

+tpos; 

*/ 

address pointer += stat;,. 
bytes_produced += value; 

} 

if (tempi ate[i][0] = - ' F * ) { 

if ( ( (ciddress^pointer % 2) != 0) && 

(word_align) ) { /* word alignment */ 

stat = read ( f d 1 , &ch , 1 ) ; /* unused byte */ 

++bytes_ read; 

++ciddre?s_pointer ; 

++byt es_aligned; 

} 

stat = read (f d 1 , &f* 1 , si zeof (float)); /* 4 is sizeo* 
bytes_read += stat; 
address_pointer += stat; 
if (stat == -1) 

quit (-5); 

sprintf (temp # "%0.2f",f1 ) ; 
strcat (s,temp); 
value ~ strlen (temp); 
pos += strlen (temp); 
bytes_produced += value; 

} 

if (tempi ate[i][0] == 'D 1 ) { 
nu11_data (t,80 ) ; 

J — 1; /* get field length */ 

while (template[i][J] != * : 1 ) { 

t [j-1] = template[i] [J] ; 

+ + j ; 

if (j >5 0 ) qu.it (-2,1); 

> 

value = atoi (t); 

stat - read (fdl,buff,value); 
bytes_read += stat; 
ciddress^pointer += stat ; 

if (stat == -1) r 

quit (-5) ; r 

4 + j ; 

while (t emp'l at e [ i ] [ j ] != ':') { 

switch (tempi ate[i][j]){ 

case * M 1 : 

s[pos++] =buff[2]; 
s[pos++] =buff [3] ; 
break; 

case 1 Y * ; 

s[pos++] -buff[0]; 
s [post+] =buff[1] ; 
break; 



case * 0 ' : 


* % 




s[pos++] =buff [4 J ; 
s[pos + +.] =buff [5] ; 
break; 


S(3 


} 

++j ; 


if ( .(t emplate [ i + 1 ] [0] != ’. \ 0 ’ ) && (template [ i ] [0]- ! = 

(tempi ate[i][0] != ' W) ){ 

s[pos] = field_seperator[0]; 

++POS; 

} 

if (s[0] == ' ') { /* don't write deleted records */ 

++del etedrecords 
goto loop; 

/* 

if (s[pos—1] == field_seperator[0]) { 


* ) * 


*/ 


s[pOS-1 ] = ' ' ; 

s[pos] = '\0' ; 

> 

fprintf (fd,"%s\n" ,s); 
bytes_produced += strlen (s); 


/* the end, za 


if (template[i+1 ][0] == '\0') { 

if (word_al ign) { 

if ( (address__poi nter % 2) != 0) { 
stat = read (fd1,&ch,1); 
++bytes read; 
++address_pointer; 
++bytes_a1igned; 


} 

44 i ; 

} 

fprintf (fd, ls\n",s); /* write out data to disk */ 

use (action_wt); 
gotoxy (30,2); 

4*4*rec_nutn; 

cprintf ("Records converted -> %iu",rec_num); 
gotoxy (30,4); 

cprintf ( M Bytes Produced -> %1u",bytes_produced); 
if (word_align) { 

gotoxy (1,7); 

cprintf ("Unused Bytes Used For Word Alignment -> %lu",bytes 


} else { 


gotoxy (1,7); 

cprintf ("No Unused Bytes! (Compact Data)" ) ; 


gotoxy (30,5); 

cprintf ("Deleted Records 


-> %1u", deleted_records); 


fclose (fd); 
close (fd 1 ) ; 
quit (1 ) ; 


shift_string 

shift_string (char *s, int 1en) { 

int i,j; 

for (j = 0;J<len;j++) 

for (i=0;i<strlen (s);++i) { 

s [ i 1 = s [i + 1] ; -.-.-srr : “--.*~ ‘ .71 1 



1 




show 
l char 


-i 

1 


} 


tech () { 

s[80]; 

if ((conversion_type[0] =- 'A') || (conversion_type[0] 

strcpy (s,"ASCII DELIMITED"); 

} else 

strcpy (s ,"Sequentia1 1 C 1 "); 

use (main _wt); 
gotoxy (5,1); 

cprintf ("Converting To -> %s",s); 
gotoxy (5,2); 

cprintf ("File Name ~> %s",file_name); 

gotoxy (5,3); 

cprintf ("Template Name -> %s " , t empl at e_f i l.e ) ; 
gotoxy (5,4); 

cprintf ("Producing File -> %s",new_fi1e); 
use (action_wt); 
gotoxy (30,2); 

cprintf ("Records Converted -> %lu",recs_converted); 


/* 


■{ * 


read_in_template () 


5 read_in_template 
int i ; 
i FILE *fd; 

1 char 1 ine[ 80 ]; 


() { 


: fd “ fopen (template file/'rb"); 

if (fd — NULL) 

quit (“ 1 ); 

i = 0 ; 

- J while (fgets (line, 80 , fd) ) { ^ 

i strcpy (tempi ate[i], 1 ine); 

.* + + i ; 

* 9 

1 > 

" fc1ose (fd); 

} quick_check (); /* quickly check format, parse it */ 








♦ 

J quick check 



1 quickieheck () { 

■*i int i ; 

a /* a 1 * * is a rem statement */ 

•i 

i 

w 


J 1=0; 

'■j while (template[i][ 0 ]) { 

1 if ( (template [i] [ 0 ] != 'A') && 

i f V r\ rrt I ^ +- o r ^ I r f 1 1 1 “ 1 P ' 


i 

4 

(template 

[iJ [03 

!= ' F ') && 

t 

4 

• 

■ 

(tempi ate 

[i][ 0 J 

!= ’*') && 

1 

i 

(template 

[ 1 ][ 0 ] 

!= 'W) && 

4 

i 

(tempi ate 

[ 1 ]COJ 

!= 'O' )) { 


quit (- 2 ,+ +i ) ; 


if (strnemp (template [i],"W 0 RD ON", 7 ) == 0 ) { 

word_align = TRUE;_. 


—*/ 








0 ) { 



f 

* 


\ 


I 


♦ 

< 

1* 

* 

i 


> 

if (strncmp (template [i],"WORD OFF",8) 
word_a!ign = FALSE; 

} 

+ +i ; 

use (action_wt); 
gotoxy (1,2); 

cprintf ("Template Syntax [%d]",i); 

}. 

use (actionwt); 
gotoxy (1,2); 

cprintf ("Template Syntax [%d] -0K",i); 
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q ui t 


j quit (int 
1 in't i ; 
j int j ,f d; 

! int count 
! int done; 


id, int 

= 0 ; 


location) { 


j 
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_setcursortype (_N0RMAI CURSOR) ; 

window (1,1,80,25); ^ 

textcolor (White); 
textbackground (Black); 
switch (id) { 

case -1 : , [' 

c 1 rscr (); 

printf (“\nERR0R : Can't Find Template File %s",tem ; 
exit (0 ) ; ; 

break; 

* 

case “2: v 

c1rsc r^ ( ) ; 

printf (" \n ERROR : Syntax Error Line (%d) in Tempi 
exit (0 ) ; * 

break; 

c a s e — 3 : 

clrscr (); 

printf ("\n ERROR : Can’t Open Output File %s",newJ 
exit (0); ,* 

break; i 

case “4: 

c1rsc r ( ) ; 

printf ("\n ERROR ; Can’t Open Source File %s",file : 
exit (0 ) ; ; 

break; f 


case “5 : 

clrscr (); 

printf ("\n ERROR : Reading Source File %s , f i 1 e _naj: 

* 

exit (0); y 

break; ■ 

c a s e - 6 : ?'' 

clrscr (); f. 

printf (*’\n ERROR : Writing to Output File %s",new_* 

exi t ( 0 ) ; *■ 

4 

break; 

case -7: j 

c 1 rscr (); • 

printf ("\n ERROR : # of fields in template don’t ma^ 
exit (0) ; j 

break; 


case 1 : 
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} 


buzz ( ) ; 
*/ 



done = FALSE; 

done_wt = windowopen (&done_win); 

set t i tie (done_wt, " DONE ! "Cen ter Upper T i 11 e ) ; 

c1rscr (); 

cprintf (" %s -> %s - Completed! " ,file_na 

gotoxy (1,2); 

cprintf ("Total Records %lu, Deleted Records %lu, P 

deleted_records # number_of _re 

/* gotoxy (1,3); 

cprintf (” PRESS <ANY> KEY TO 

while (!done ) { 

for (i“0;i<2000;i++) { 

if (kbhit ()) { 

getch (); 
done = TRUE; 

} else del ay (1); 

} 

buzz ( ) ; 

} 

*/ 

delay (2000); 

c1ose_a11_windows (); 
window (1,1,80,25); 
textcolor (White); 
textbackground (Black); 
clrscr (); 

pr intf ("\nThank you. . . . GMNi 1991"); 

fd = open ("OK",O^CREAT|O.WRONLY,S_IWRITE); 

c1ose (fd); 

exit (0 ) ; 

break; 

} 

clrscr (); 

printf ("\n ERROR ; Genera);" Failure!"); 
exit (0); 



j buzz 
* 


' 4 

■j buzz () { 

*1 int i; 

■j for 

i 
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( i = 1;i<10 0;i++) { 
sound ( 1000); 
delay (1); 
nosound (); 
delay (1); 
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transfer VI.56t 


PURPOSE: 

Down 1 oads a hotel s data . 

Preforms various functions, date time check etc..". 
Writen By: Greg McGregor 1990 
Modi fed: GMM 7-2-1991 


REVISED: 


What was revised? 


] GMM 8-14-1991 
■ 

t 

j 

i 

» 


Zap and execute files. 

Press ESC to exit on connect 
other rnisc . 

get phone number from a file 


* GMM 8-26-1991 
: GMM 9-19-1991 

t 

_i 

1 


creates file 'OK' on successful transfer 
got rid of g,p commands. Deleted 'OK' at start of transfer 
allows for zero length file transfers. Some extra error che 
the commands line argument, 


ftinclude 
ft i nc 1 ude 
ftinclude 
ftinc1ude 
ftinclude 
ft i n c 1 u d e 
ft i n c 1 u d e 
ftinclude 
ftinclude 
ftinc1ude 
ftinclude 
ftinclude 
ftinc1ude 
ftinclude 
ft i n c 1 u d e 
ft i n c 1 u d e 


< s t d i o . h > 
<stdlib.h> 
<string.h> 
<process.h> 
<time.h> 

<window,h> 
<mat h.h> 

<f1 oat.h> 
<dos.h> 

<bios.h> 

<fcnt1.h> 
<sys\stat.h> 
"asiports.h" 
"xfer.h" 

" ibmkeys.h" 

11 gf . h" 



ftinclude <\h2\gmmlib\gmmlib.h> /* greg's lib */ 


void status_routine (chan *m); 
void transfer_status (XFER *b); 
char calc_CRC (char *s,int 1en); 
char send_command (char c); 
char recieve_command (char c); 


/* 

* Window Defs 
*/ 

windef main win = 


i windef status win = 


(1,1,80,24,White,Glue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,81u e}; 

(10,9,70,16, White, Blue, FALSE, FALSE , FALSE,TRUE,SINGLEFRAME , 
! W h i t e , 81 u e } ; 

‘j windef error_win = { 1 0 , 1 0 , 7 0 , 1 5 , Whi te , Red , FALSE , FALSE , FALSE , TRUE , SI NGL E F RAME , 

White,Red}; 

= (10,5,70,15,White,Black,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

White,81ack}; 


1 windef import win 
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/* 

* Window Types 

*/ 

# 

wintype main_wt , status_wt , error_wt , import wt ; 

ttdefine FULL 1 
^define HALF 0 

Wdefine MODE AS INCUT|B INARY|NORMALRX 

#define RXLEN 2000 

ttdefine TXLEN 2000 

Itdefine SECONDS 2 

ttdefine TRUE 1 

tfdefine FALSE 0 

ltdefine ECHO 0 

#define SPEAKER OFF 


int ACK_CHAR = 0x20; 
int NAK_CHAR = 0x21; 
int LOG_OUT = 0x2 2; 
int SEND_COMMAND = 0x23; 


<S78 


/* char send by server saying Jam ready */ 


/* Hotels are all at ?400 Baud */ 
/* No Parity */ 

/* phone number to call */ 


k I 

- i 


X 

i. 


int PORT; 
int: BAUD = 2400; 
int PARITY = P_NONE; 
char PHONE_NUMBER [00]; 
int ST0P_ 81TS = 1; 
int WORdIlENGTH =8; 
int DUPLEX = FULL; 
char command_list[80]; 
char fi1e_name[80]; 
int file_number; 

char files[10][80]; /* upto 10 files */ 
char *valid_commands = “aAdDfFILuUxXyYrRsSnN"; 
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// Function Name 
// Parameters: 

// Function: 

// Returns: 

// Written By : 

// 


-> does file exist 


Greg McGregor 


---- */ 


int does_file_exist (char *f) { 
int fd; 

fd = open(f,ORDONLY|0_BINARY,S_IREAD); 
if (fd < 0) return ( FALSE ); 
close (fd); 
return ( TRUE-); 

} 

/*- 


; main 




main (int argc.char *argv[]) 

{ 

int i ; 

FILE *fp; 

if (does_fi 1 e_exist (‘‘ok.")) 
init_windows (); 
check_args (argc.argv); 

PORT = atoi (argv[1]) - 1; 
fp = fopen (argv[2],"r" ) ; 
if (fp == NULL) { 


-*/ 


system (“del ok. >trash"); 


/* set Port */ 


/* remove ok 



* 

.1 


i 

• i 



c rrscr^C); - — 

printf. ( n \nERROR: Can’t open file ’%s 1 ",argv[2]);. 
exit (0); 

} 

fscant (fp, n %s“,PHONE_NUMBER); 
fclose(fp); 

strcpy (command_list,argv[3]); 
strcpy (file_name,argv[4]); 
file_number = 0; 

1=4; 

for (i=4;i<argc;i++ ) { 

strcpy (f11es[fi1e_number],argv[i]) ; 

++file_number; 

} * 
file_number =0; 
connect_to_site(); 
c1ose_a11_windows () ; 
window (1,1,80,25); 
textcolor (White); 
textbackground (Black); 
windowclose (status_ wt); 
clrscr () ; 


S/9 


■ i 
} 


/*- 

// Function Name -> 
// Parameters: 

// Function: 

// Returns: 

// Written By : 

// 


i s_char _ i n _ st r i ng 


McGregor 


*/ 


J 

t! 


int is_char_in_string (char c,char *s ) { 

char *t; 

t = s ; 

while ( *t ) { 

if (c == *t) return ( TRUE 
-M-t ; 

> 

return ( FALSE ); 

} 


); 


t 
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// Function Name -> are_commands_va1id 
// Parameters: 

// Function: 

// Returns: 

// Written By : Greg McGregor 
// 

■mm mm. mmm mmm — —- — —m mm mm mmm — . m— m. mm mmm mm- m. __ —~ mm —m mm mm mm mm mm — _ — w _ mm mm mm mm mm w mm mm. — F _ ^ ^ 

int are_commands_va1 id (char ^commands) { 
c ha r * 1 i s t ; 

list = commands; 
whi1e (*1ist ) { 

if (!is_char_ i n string (*list,valid_commands)) 
++1ist; 

} 

return (TRUE); 

} 


return (FALSE); 


check_args : check command line args for validity 




cneckargs ('i nt n,char *![]; 


GZO 


(n < 4 ) { 

main_wt - windowopen (&main win); 

settit1e (main_wt, How 'TRANSFER' Works",CenterUpperTitle); 
c1rscr ( ) ; 

printf ("TRANSFER VI.56"); 

gotoxy (1,2); . 

printf (“(GVN. Network)"); 
gotoxy (1,3); 

printf (“USAGE: transfer [PORT] [FILE] [COMMANDS] <f|FIlE>")- 

gotoxy (1,4); 

printf ('' Required: "); 


- 1 


(C0M1 through COM4)") 


- Contains A Phone Number To Call 


printf (" Required: "); 
gotoxy (1,5); 

printf ("■ [PORT] - 1 .. 4 (C0M1 through COM4) 

gotoxy (1,6); 

printf (" [FILE] - Contains A Phone Number To Ca'I 

gotoxy (1,7); 

printf (" [COMMANDS] a - Archive Data Base At TAU" 

gotoxy (1,8); 

printf ( d - Date/Time Setting"); 

gotoxy (1,9); 

printf (" f - File Operation Follows"); 

gotoxy (1,10); 

printf (" l,u - Lock/Unlock Site"); 

gotoxy (1,11); 

printf ( x,y - Data Lock/Unlock Data") 

gotoxy (1,12); 

printf ('' r,s - Reboot/Set life Span"); 

gotoxy (1,13); 

printf (' n- Get Site's Serial Number" 

gotoxy (1,16); 

printf (" Optional : If f' is Specified in Commands 
gotoxy (1,17); 

printf (" <f | FIL E> - f = Flag, FILE = File Name"); 

gotoxy (1,18); 


[COMMANDS] a - Archive Data Base At TAU"); 

d - Date/Time Setting"); 
f - File Operation Follows"); 
l,u — Lock/Unlock Site"); 
x,y - Data Lock/Unlock Data"); 
r,s - Reboot/Set life Span"); 
n - Get Site's Serial Number"); 


< *C. * 


is Specified in Commands") 


printf (" FLAGS:"); 

gotoxy (1,19); 

Pdntf (" -s = Send A File"); 

gotoxy (1,20); 

printf (" -r = Retrieve A File”); 

gotoxy (1,21); 

printf (" -e,-z = Execute/Zap a File"); 

gotoxy (1,22); 

printf ("6MM 1991"); 
window (1,1,80,25); 
gotoxy (1,24); 
exit (0); 

(!are_commands_valid (1[3]) ) { 
clrscr (); 

printf ("\nERR0R: The commands string contains and invalid command 
exit (0); 


. /*- 


error 


error (int e) 

{ 

char message [80]; 


-*/ 


sprintf (message,"ERROR %d“,e); 
switch (e) { 

,cpse -2 : sprintf (message,"Inva1id Port! %d”,e); 
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t 

t 
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i 

\ 

* 
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i /*- 

] hang_up 

| hang_up 
'{ { 

■i i n t i ; 

J* * 

.1 


.t 


} 


, ? 


} 


case 


case 


case 


case 


case 

case 

case 

case 


break; 

-3 : sprintf (message," 
break; 

-4 ' : sprintf (message," 
break; 

-5 : sprintf (message," 
• break; 

-6 : sprintf (message, 1 * 

brea k; 

-7 : sprintf (message," 

break; 

-23 : sprintf (message, 
break; 

-22 : sprintf (message, 
break; 

-100: sprintf (message, 
break; 


Port Already Inuse! %d",e); 



Invalid Buffer Size! %d“,e); 

Memory Allocation Error In Port Setup 
Port Not Setup! %d",e); 

Invalid Parameter! %d".,e); 

"Modem Not Responding! %d",e); 

"Modem Not Responding! %d",e); 

"Can’t Reset Modem! %d",e); 


error wt = windowopen (&error_win); 

settitie (error_wt,"ERROR",CenterUpperTit1e); 

gotoxy (1,2); 

cprintf ("%s" ,message); 

hang^up (); 

ex it (0 ) ; 



() 


cprintf (" -* Closing Port"); 

while (Iistxempty (PORT) ); 
timer (TICKS_PER_SECOND + 1); 
asiputs (PORT,"+++",-1); 
while (Iistxempty (PORT) ) ; 

timer (TICKS_PER SECOND * 2); 

HMSetHookSwitc h (PORT, ONHOOK); 
asiquit (PORT); 




i 

u 

i 




open port; 


open_port () 
{ 

i n t s t a t; 


n 

-1 




l 


i* 


a 

■1 


1 


”*/ 


stat = ASSUCCESS; 
c1rscr (); 

cprintf ("-* Opening Port"); 

if ((stat = asifirst (PORT,MODE,RXLEN , TXLEN)) < ASSUCCESS){ 

error (stat); 

> 

if ((stat = asiinit(PORT,BAUD,PARITY,STOP^B1TS,W0RD_LENGTH)) 

< ASSUCCESS ) { 
error (stat.); 

} 

if ( (stat = asdtr(PORT,ON)) < ASSUCCESS) 

error (stat); 

if ( (stat = asrts (PORT,ON)) < ASSUCCESS) 

error (stat); 

if ( (stat = asistart(PORT,AS1N0UT)) < ASSUCCESS) 

error (stat) ; 





/* - 

initmodem : initialize modem 


init_modem () 

{ 

int stat,i; 


*7 


use (status_wt); 
clrscr(); 

cprintf ("-* Initializing Modem 
HMWaitForOK (TICKS_PER SECONO*SECONDS,NULI); 

HMSetUpAbortKey (ESC);” 

1 = 0 ; 

stat = HMReset (PORT); /* reset modem V 

while ( (stat <ASSUCCESS) && (i < 4) ){ 

++i ; 

stat = HMReset (PORT); 

gotoxy (1,i+1); ' ; 

cprintf (“-* Trying To Reset Modem Again!"); 
hang up () ; 

open_port (); : 

HMWaitForOK ( TI CKS_PER_SECOND*SECONDS , NHL L. ) ; 

HMSetUpAbortKey (ESC); 

^ * 

if (stat < ASSUCCESS) i 

error (stat); 
if (ECHO ==0) 

‘if ( (stat = HMSetEchoMode (PORT,OFF)) <ASSUCCESS) /* set e 
error (stat); . . 

if (ECHO == 1) 

* 4 

if ( (stat = HMSetEchoMode (PORT,ON)) <ASSUCCESS) 

error(stat); • 

if ( (stat = HMSetVerboseMode (PORT,ON)) < ASSUCCESS) 

error (stat); 

/* verbal response */ 

if ( (stat = HMSetFullDuplexMode (PORT,ON)) < ASSUCCESS)/* duplex Fl^ 

error (stat ) ; ' • 

if ( (stat = HMSetSpeaker (PORT,SPEAKER)) <ASSUCCESS) /* set speaker- 

error (stat); ~ ‘ 


connected : PREDICATE is connected to site 

^ -- -*/ 

int connected () 

{ 

return iscd ( PORT, CUMUL AT IVE ) ,- 

} 


| start_commands: main processing loop 

. start_commands () 

.! ( 

* 

| intr command , fd , juinped_out = FALSE; 
i int stat,i ( trys; 
i ">nt command stat = FALSE; 
int ok = TRUE; 


*/ 


if (asiclear (PORT,AS INOUT) < 0) { 

cprintf ("Can’t Clear Buffer!"); 
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t. 


.V 

1 


I Shit: 



} 


command = 0; ' ' 

t rys = 0 ; 

while (command_list[command]) { 
clrscr ( ); 

cprintf ("-* Waiting For Job Request %d" ,t.rys); 
trys = 0; 

while ( ! (stat = recieve^command (SEND_COMMAND))) { 

c1rscr (); 

cprintf ("-* Waiting For Job Request %d'\trys); 

++trys ; • 

if (trys > 1) { 

jumped^out = TRUE; 

goto shit; /* break and do log out,? trys */ 

} 

} 

if ( (command_list[command] = - ’f 1 ) | | 

(command_1ist[command] -= ’F') ) 
command_stat = fi1e_transfer (); 
if ( (command_list[command] 1 d*) || 

(command^list[command] -= !D‘) ) 
command_stat=date_check (); 
if ( (command_list[command] == ’a 1 ) || 

(command_1ist[command] == 'A') ) 
oommand__stat = archive_da.tabase (); 
if ( (command 1ist[command] == 1 l f ) || 

(command./!ist[command] == 1 L 1 ) ) 
command,stat=lock_s i te ( ) ; 
if ( (command_1ist[command] =- 'u') || 

(command 1ist[command] ==’ U r ) ) 
command_stat - unlock_site (); 
if ( (command_1ist[command] == 'r') || 

(command^!ist[command] == 1 R*) ) 

command_stat = reboot site (); 
if ( (command_list[command] 'n' ) || 

(command_1ist[command] -= 'N 1 ) ) 

commandostat = get_seria1^number (); 
if ( (command_1ist[command] »= 1 s') || 

(command_1ist[command] == 'S 1 ) ) 
command _stat ~ set _1ife_span (); 
if ( (command 1ist[command] == * x') || 

(command 1ist[command] == f X') ) 
command_stat = data^lock (); 
if ( (command!ist[command] == *y r ) II 

(command 1 i st [command] == 'Y') ) 

command_stat -- unlock_data (); 
if ( ! cominand_stat) ok = FALSE; 

•^command; 

} 

clrscr (); 

cprintf ("-* Getting ready for LOG OUT!"); 

trys = 0; 

while (!recieve_command (SEND_COMMAND)) { 

++trys; 

if (trys > 1) break; /* break and do log out '*/ 

} 

c1rscr (); 

cprintf ( M -* Logging out"); 

for (i = 1 ;i <4; i +*+•){ /* send 3 log messages */ 

while ( (stat = send_xchar (LOG_OUT)) != ASSUCCESS) ; /* log out 
timer (T1CKS_PERUSECON0); 

} 

if ( (!jumped_out) && (ok) ){ 

fd = open ("OK",0_CREAT|0_WR0NLY,S_IWRITE); 
close (fd); 

} 
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/*- 

data lock 


int data_lock () { 

clrscr (); 

cprintf ("-* Data Locking Site!"); 
if (!send^command (0x11) ) 

return FALSE; 
gotoxy (1,2); 

cprintf (“-* Site is Now Data Locked! ") ; 
return TRUE; 


*/ 


unlock data 


int unlock_data () { 

c 1 rscr (); 

cprintf ("-* Unlocking Data Lock At Site!")*; 
if (!send^command (0x12) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ("-* Site is Now Data Unlocked!"); 
return TRUE; 


-* y 


/* _- 

lock_ 

int 1 

{ 


site 


ock_site () 


-*/ 


clnscr ( ) ; 

cprintf ("—* Locking Site"); 
if (!send_command (0x08) ) 

return FALSE; 
gotoxy (1,2); 

cprintf (" -** Site is Now Locked!"); 
return TRUE; 


unlock site 


int unlock_site () 

{ 

c1rsc r ( ) ; 

cprintf ("-* Attempting to Unlock Site"); 
if (!send_command (OxOE) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ("-* Site Successfully Unlocked!"); 
return TRUE; 


/*- 

reboot site 


int 

{ 


reboot_site () 
clrscr ( ) ; 

cprintf ("-* Attempting to reboot 
if (!send_command (OxOA) ) 

return FALSE; 


-*/ 


site"); 







> 


gotoxy (1*2); 

cprintf ("-* Site was rebooted'")- 
return TRUE; 



/* - 

get ^serial number 


i n t 
\ -int 


J 

* 

•i 

i 


% 
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} 


get _seria 1number () { 

Stat ; 

clrscr ( ) ; 

cprintf ( -* Requesting Serial of site")* 
if (!send^command.(OxOC) ) 

return FALSE; 
clrscr(); 

cprintf ("-* Retrieving Serial ft in file Serial Hat • " i 

stat - YmodemReceive (PORT,status routine,NUlL'ESC) ^ 

return TRUE: ~ 

r t 


-*/ 


\ /* - 

] set!ife_span 


* * 


i int 


i 

i 

-i 


> 


set_life_span () { 
c1rscr ( ) ; 

cprintf ("-* Attempting to set 
if (!send_command (0x00) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ("-* Life span SET!"); 
return TRUE; 


-V 


i ife span ")■ 


/*— 

file 


transfer 


int fi 1 e__transfer () 

* ^ 

int stat; 

strcpy (fi1e_name,fi 1 es[fi 1 e number]); 

if ( (strncmp (filename, n -r ;r ( 2) == o) || 

(strncmp (fi1e_name,"-R”,?) == q) ) { 
stat = get_file () ; 

4 *tf i 1 e_num ber ; 

} else 

if ( (strncmp (filename,‘-s“ , 2 ) == o)' || 

(strncmp (filename, “-S“ , 2) == o) ) { 
stat = send_file (); 

++ fi 1 e_number; 

} else 

if ( (strncmp (fi1e_name2) == 0) || 

(strncmp (fi1e_name,"-Z“,2) == o) ) { 
stat = zap_file (); 

++fi1e_number; 

} else 

if ( (strncmp (fi1e_name,"-e",2) == 0) || 

(strncmp ( f i 1 e name, “-E “ , 2 ) -•= 6) ) { 
stat = execute file (); 
t + f i le__number ; 

} else ttfilenumber; 

return stat; 



~ */ 


/ 'A' 









get_xchar: get char from line 


* int get_xchar () 

; ( 

int stat ; 
l int trys = 0; 


*/ 


while ( ( (stat = asigetc (PORT)) 

++trys; 

} 

if (trys < 10000) return stat ; 
return 0; 


< ASSUCCESS) 5c5c. (trys <10000) 


/* - 


| send xchar ; send a char down line 


send_xchar (char c) 

{ 

int stat; 

while ( (stat 

} 


-*/ 


asiputc (PORT,c)) < ASSUCCESS) 


/* - 

recieve command 


----* / 


char recieve_command (char c) 

{ 

'int stat; 
int trys = 0; 

while ( ( (stat = get_xchar ()) ! 

+ 4* trys ; 

/* send_xchar (NAK_CHAR); */ 

} 

if (stat: c ) { 

send_xchar (ACK_CHAR); 
return TRUE; 

} 

return FALSE; /* error */ 


= c) 6<6( (trys < 50) ) { 


/*- 

send ^command 

char send_command 

{ 

int stat; 
int t rys; 


(char c) 


— */ 


trys = 0; 

stat = asiputc (P0RT,c); 
do { 

stat =■ get_xchar (); 

++trys; 

if (stat == NAK_ CHAR){ 
send_xchar (c); 

} 

} while ( (stat != ACK_CHAR) &6t 

if (stat == ACK_CHAR) 

return TRUE; 
return FALSE; 


(trys <100) 
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\ /* 


send data: 


Basic function to send data 

format: OF,kbytes follow, 

trys 3 times then fails 


I char send_data (char *s,int run) 
•) < 

J char bytes; 

i int i , j,k,stat,return_va1ue; 

I k = 3 • 

} while (k) { 


/* run, = 


Bytes + XOR CRC 

-- */ 

len or size of. data block */ 


timer (7JCKS_PER_SECOND); /* wait for site to get in 

clrscr ( ) ; 

cprintf ("-* Sending Data..."); 

bytes = run + 2; /* string + LRC + » bytes */ 

j - run; 

send__xchar (bytes); 
for (i=0;i<j;i++) 

send_xchar(s[i]); 
send_xchar (calc_CRC (s,run)); 
do { 

stat = get_xchar (); 

> while ( (stat != NAK_ CHAR) && (stat ! = ACK_CHAR) ); 

if (stat ”= NAK_CHAR) { /* Presumably a NAK char */ 

— k ; 

return value = FALSE; 
clrscr ( ) ; 

cprintf ("-* Trying Send Data Again..."); 
timer (TICKS_PER_SECOND); 

} 

if (stat == ACK_CHAR) { 

k “ 0 ; 

return_value = TRUE; 


recieve mode 


return return value; 


/*- 

ca1c_CRC 

char calc CRC 

{ 

int i,j ; 
c har crc ; 


*“■ — — — — — — — — » — — — — — — j+c ^ 

(char *s,int len) 


c r c = 0 ; 

i = len; 

ore = s [0] ; 

for ( j“1;j <i;j++) 


crc = crc 


s[j] ; 


return crc; 


// Function Name -> is_zero_fi1e_length 
// Parameters: 




// rune Clon: 

// Returns: 

// Written 8y : Greg McGregor 
// * ^ 

int is_zero_fi1e_length (char *file_name) { 
int fd; 

fd = open ( f i *1 e_ name , 0_ RDON t. Y | 0_81 NARY , S_ I READ) ; 
if (fd < 0 ) return (' FALSE ); 

if ( filelength (fd) =” 01.) { close ( fd ); re 
c1ose (fd); 
return ( FALSE ); 


return ( TRUE 


/*- 

send f i* 1e 

int send_fi1e () 

( 

int s ta t: 


- */ 


clrscr (); 

shift_left (fi1e_name,2); 

cprintf (" -* Sending File 1 %s * " , f' i 1 e name) ; 
if (!send^command (0x01) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ('*-* Got The OK ! ” ) ; 
timer (TICKS_PER„SECONO *2 ); 

stat “ YmodemSend (PORT,fi1e_name,status_routine,NULL, 
if (is_zero_fi1e_length (file_name) ) return ( TRUE ); 
if (stat !" XFER_RETURN_SUCCESS) return ( FAL.SE ) ; 

return ( TRUE ); 
gotoxy (1,3); 

cprintf ("-* File Transfer Status %d",stat); 


shift_left 

shift_left (char *s,int n) 

{ 

int i; 

i = 0 ; 

while (s[i+n]) { 

s[i] - s[i+n] ; 
+ +i ; 

} 

s[i] = '\ 0 '; 

} 


/* - 

get_fi1e 

int get_file () 


_ * / 

!■* «<•« Wt ^ •• ** ** ^ - ' — - • • 1 / 


int stat; 


clrscr () ; 
stat = 0; 
c1rsc r (); 

shift_left (file_name,2); 
cprintf ("-* Requesting File 
if ( ! send_command (.0x02) ) 


Transfer of '%s'", file name); 






I 





- 4 





gotoxy (1,2); - 

cprintf (“-* Request OK’d"); 

if (!send_data (f ile_name, strlen (fi1e_name))) { /* 


tell site 


clrscr ( ) ; 

cprintf ("-* Couldn't Get The File '%s’“,fi1e_name); 
return .FALSE; 


■vr*- 


a 


} e 1 s e { 


cprintf ( n ... Initiating Ymodem' 1 ); 
stat = 0 ; 

stat = YmodemReceive ( PORT , status._rout i ne # NULL , ESC) ; 
if ( is_*^ero w f i 1 e_l engt h (filename) ) return (TRUE); 
if (stat != XFER_RETURN_SUCCESS) return FALSE; 
return TRUE ; 
gotoxy (1,3); 

cprintf ("Transfer Value %d",stat ) ; 




file 


name * 


] zap _ fi1e 

i ___ 

| int zap_file () 

; { 




int stat; 


i 

i 

i 

* 


“i 



# * 
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*1 
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clrscr (); 
stat = 0; 
clrscr (); 

shift_left (fi1e_name,2) ; 

cprintf ("-* Requesting A File ZAP of ’%s 1 ",fi1e_name); 
if ( ! send_command (OxOF) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ("-* Request OK'd" ) ; 

if (Isend data (f11e_name,str1en (file_name))) { /* tell site a 

c1rscr (); 

cprintf ("-* Couldn't ZAP The File ' %s ' “ ,file name); 

} 

hold_line (1); /* hold line for 1 second before continuing */ 

return TRUE; 


i /*- 

i execute file 

i — 

K _ 


int execute_f11e () 


i t 


i n t stat; 



file name * 


clrscr (); 
s t a t = 0 ; 
clrscr (); 

s hif t _1e f t (fi1e _n a me,2 ) ; 

cprintf ("-* Requesting A File EXECUTE of 1 %s V' ,file_name); 
if (!send_command (0x10) ) 

return FALSE; 
gotoxy (1,2); 

cprintf ("-* Request OK'd" ),- 

if (!send_data (file_name,strlen (file_name))) { ■■ /* tell site a file name * 
clrscr (); 

cprintf ("-* Couldn’t EXECUTE The File ' %s ' “,file name); 

} 

hoid_line (5 ) ; 
return TRUE ; 










** 4 


r 



} 



void status_routine (char *m) 

{ 

gotoxy (1,3); 

cprintf (" ") ; 

gotoxy (1,3); 
c. printf ( “ %s\n",m); 


• void transfer_$tatus (XFER *b) 

gotoxy (1,5); 

cprintf ("Block Number : %1d“ , b->b1ock_number) ; 
gotoxy (1,6); 

cprintf ("Byte Count : %1d",b->byte count); 


f 

4 

1 

j /*- 

: date_check () r set date and time at site 
j date^check () 
i int statl ,stat; 

t 

* struct time t; 

! struct date d ; 
i int size; 


size = (int) sizeof (t); 

stat = send_command (0x05); /* request a date set check */ 

gett ime (Set ) ; 

stat = send^data (&t,size); 
size = (int) sizeof (d); 
getdate (&d),* 

statl “ send_data (&d,size); 

gotoxy (1,3); 

if ( (stat) && (statl) ){ 

cprintf ( "-* Date/Time Set OK!"); 

} else cprintf ("-* Date/Time NOT SET OK!"); 

timer (TICKS_PER_SECOND*2); /* wait for it to get in command loop */ 

return TRUE; 


/*- 

archive database 



i archive_database () 

! { 

; int s t a t ; 

c1rsc r ( ) ; 

cprintf ("-* Requesting An Archive"); 

stat — s end __comma n d (0x03) ; /* archive command */ 

if (stat) { 

gotoxy (1,2); 

c p rin t f("-* Archive OK’d"); 

} else { 

gotoxy (1,2); 

cprintf ("-* Archive FAILED!"); 
return FALSE; 

} 

hoid_line (5); /* hold line 5 secs before continuing */ 

return TRUE; 
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dia 1_site 

dial_site () 

{ 

int secs; 
char temp[100],* 
char ch;- 





j 


•t * 
t 


r; 

„ i 
. 1 


f ; .i 

•i 


,(45 - secs)); 


clrscr ( ) ; 

cprintf ("-* Dialing %s",PHONE_NUM8ER); 

HMSetDialingMethod (PORT, TOUCH TONE); 

HMSetCarrier (PORT,ON); 

HMDial (PORT,PHONE_NUM8ER); 
secs = 45; 
ch ~ r r ; 

while ( (secs > 0) && (Iconnected ()) && (ch != 0x18) 

gotoxy (1,3); 

cprintf ( "Elapsed Time ; %d 
timer (TICKS_PER_SECOND); 

—secs; 

if (kbhit () ) ch = getch (); 

} 

if (connected ()) { 

gotoxy (1,5); 

cprintf ("-* CONNECTED!"); 
start_oommands ( ) ; 

} else { 

gotoxy (1,5); 

cprintf ("-* Couldn’t Connect"); 
hang up (); 

} 


){ /* ESC */ 


} 


/ /* - . ---—- 

;• connect_to_site ; set up port start call transfer etc... 


*/ 


connect to site () 

; { 

■j windef main^win = { 2 ,2 ,78, 19,White,Blue,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

' f ; White, 81 ue} ; 

j wintype main_wt; 

/; windef help^win = {14,4,66,6,Yellow,Cyan,FALSE,FALSE,FALSE,TRUE,SINGLEFRAME, 

Yellow,Cyan}; 

i wintype help^wt; 


■j ruff_area ( 1 , 1 , 00,23 , White, Blue) ; 

■J main_wt = windowopen (&main_win) ; 

settitle (main_wt,"* GVN Network *“,CenterUpperTit1e); 

A help_wt = windowopen (&help_win); 

settitle (help_wt,"* Note , Cent er Upper Tit le) ; 

]\ textcolor (Yellow + Blink); 

£ cprintf ( " Please wait until CIP is finished"); 

status_wt - wi ndowopen (&status_wi n ) ; 

settitle (status_wt* , " CI P Transfer Utility V1 . 56", Cent er Upper Ti 11 e ) ; 
h* open^port (); /* port opened ok if made it to here */ 

'j initmodem ( ) ; 

dial_site (),* 
hang_up (); 







